Ребятки очень срочно нужно, помогите. напишите программу которая формирует массив из 15 чисел выводит его на экран потом заменяет все числа кратные 7
5-9 класс
|
Нулям.основы выводит массив на экран
Easy
const
n=15;
var
i:byte;
m:array[1..n] of integer;
begin
randomize;
for i:=1 to n do begin
m[i]:=random(99)+1;
write(m[i]:3,' ');
end;
writeln;
for i:=1 to n do begin
if m[i] mod 7 = 0 then m[i]:=0;
end;
for i:=1 to n do write(m[i]:3,' ');
end.
Как же мне приятно)
Другие вопросы из категории
Определите разрядность двоичного кода алфавита, содержащего 325 символов
Читайте также
массива.На экран выводятся исходные и преобразованные значения.Надо очень СРОЧНО!!!!!!!!!!!!!!!!!!!!!!
строках.Вывод результата сопроводите пояснениями
2)Напишите программу ввода трех величин( А,В,С) на одной строке,рассчитайте и выдайте на экран на отдельной строке значение выражения: (А*В)/3,14 +3С.
3)Напишите программу вычисления длины окружности и площади круга одного и того же заданного радиуса R.
Решать на паскале...Помогите пожалуйста(((