Дан одномерный массив из 15 элементов, заполняется случайным образом вывести все элементы меньше некоторого a

Язык Паскаль желательно побыстрее

Question

Информатика

Амалия

13 декабря, 15:32

Дан одномерный массив из 15 элементов, заполняется случайным образом вывести все элементы меньше некоторого a

Язык Паскаль желательно побыстрее

+1

Ответы (1)

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

Инюша · Answer 1

Var i, a: integer;

x: array[1 ... 15] of integer;

begin

write ('Введите a: ') ; readln (a) ;

write ('Массив: ') ;

for i : = 1 to 15 do begin

x[i] : = random (20) ;

write (x[i], ' ') ;

end;

write (#10, 'Элементы < a: ') ;

for i : = 1 to 15 do if (x[i] < a) then write (x[i], ' ') ;

end.

Дан одномерный массив из 15 элементов, заполняется случайным образом вывести все элементы меньше некоторого aЯзык Паскаль желательно побыстрее

Дан одномерный массив из 15 элементов, заполняется случайным образом вывести все элементы меньше некоторого a

Язык Паскаль желательно побыстрее