Паскаль. Вывести на экран все элементы одномерного массива, которые превосходят заданное числоА
Паскаль. Вывести на экран все элементы одномерного массива, которые превосходят заданное числоА
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы