Помогите с информатикой,ту массивы на языке Паскаль. Задайте массив из 10 элементов с помощью датчика случайных чисел.Замените нулем элементы массива,которые больше введенного с клавиатуры числа N.Выведите на экран исходный и полученный массивы
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
Исходный массив надо, чтобы выводил?
Ответ дал:
0
да надо бы
Ответ дал:
0
Да,все отлично работает)
Вас заинтересует
1 год назад
6 лет назад
6 лет назад