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

Паскаль. Вывести на экран все элементы одномерного массива, которые превосходят заданное числоА

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

Program gt;
var b:array[1..100000]of real;
A:real;
i,n:integer;
begin
read(n);   // n- кол-во чисел массива
for i:=1 to n do
read(b[i]);
read(A);  //A -заданное число с которым надо сравнить элементы массива
for i:=1 to n do
if(b[i]>A) then write (b[i], );
end.