Синформатикой,ту массивы на языке паскаль. задайте массив из 10 элементов с датчика случайных чисел.замените нулем элементы массива,которые больше введенного с клавиатуры числа n.выведите на экран исходный и полученный массивы

играю4в4warface играю4в4warface    3   31.05.2019 11:40    0

Ответы
nikakoheleva14 nikakoheleva14  01.10.2020 15:44
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика