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