Question

дан массив, состоящий из 14 элементов. массив заполняется пользователем после запуска программы. составьте программу нахождения количества элементов >15 в массиве

Answer 1

const n=14;

var a:array [1..n] of integer;

i,k:integer ;

begin

for i:=1 to n do read(a[i]);

write ('Массив: ');

for i:=1 to n do

begin

if a[i]>15 then k:=k+1;

write (a[i],' ')

end;

writeln;

writeln('Количество элементов больше 15: ',k);

end.