Question

(СРОЧНО lдам 20 балов )дан массив от 1 до 20 ,заполнить случайными числами до 100 вывести массив и количество чисел больше 50 вывод массива на экран построчно

Answer 1

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

   i: integer;

   k: integer;

begin

randomize;

for i:= 1 to 20 do a[i] := random(100) + 1;

k := 0;

for i:= 1 to 20 do begin

 writeln(a[i]);

 if a[i] > 50 then inc(k);

end;

writeln();

writeln(k);

end.