Question

Даю 100 баллов!!! Информатика реш. Помогите прошу. Нужно решить любой из трех правильно, обязательно правильно!

Answer 1

Задача 1

Результат - 4

Задача 2

var A: array[1..25] of integer;

ki,: integer;

begin

k:=0;

for i:= 0 to 10 do

begin

read(A[j]);

if A[i]>4 then k:=k+1

end;

writeln ('k=', k);

end.

Задача 3

Решение на картинке.