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

Question

Информатика

Ромася

17 октября, 04:51

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

+2

Ответы (1)

Знаете ответ на вопрос?

Арсения · Answer 1

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.