Помогите с информатикой, ту массивы на языке Паскаль. Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените нулем элементы массива, которые больше введенного с клавиатуры числа N. Выведите на экран исходный и полученный массивы

Question

Информатика

Кондрат

17 января, 02:56

Помогите с информатикой, ту массивы на языке Паскаль. Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените нулем элементы массива, которые больше введенного с клавиатуры числа N. Выведите на экран исходный и полученный массивы

+5

Ответы (1)

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

Гали · Answer 1

Var a, n:integer; m:array [1 ... 10] of integer;

begin

readln (n) ;

for a:=1 to 10 do

begin

m[a]:=random (50) ;

writeln (m[a]) ;

end;

writeln ('новый массив') ;

for a:=1 to 10 do

begin

If m[a]>n then m[a]:=0;

writeln (m[a]) ;

end;

end.