Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Срочно нужна программа в Паскале!: Задать с клавиатуры массив, состоящий из 10 целых чисел и просчитать кол-во элементов >k (k ввести с клавиатуры). На экран вывести массив в строчку через пробел и кол-во искомых элементов.

Ответ оставил Гость

Var
 ar:array[1..10] of integer;
 k,i,n:integer;
begin
 readln(k);
 for i:=1 to 10 do
  begin;
   readln(ar[i]);
   if ar[i]>k then n:=n+1;
  end;
 writeln(Array:);
 for i:=1 to 10 do write(ar[i]:4);
 writeln;
 write(Res:,n);
end.