Ответы и объяснения

Лучший Ответ!
2013-10-31T09:18:03+00:00
Program mass;
uses crt;
var
mas:array [1..5] of real;
i,j:integer;
begin
j:=0;
for i:=1 to 5 do
begin
writeln('Введите ',i,' число для массива: ');
readln(mas[i]);
clrscr;
if mas[i]>4 then j:=j+1;
end;
writeln('Количество елементов больше 4 = ',j);
end.