Решить задачу Pascal В массиве состоящем из 15 целых чисел заменить все числа кратные 3 на 0.
Решить задачу Pascal
В массиве состоящем из 15 целых чисел заменить все числа кратные 3 на 0.
Гость
Ответ(ы) на вопрос:
ГостьVar
A:array[1..15]of integer;
i:integer;
Begin
Write('До: ');
For i:= 1 to 15 do
Begin
A[i]:=random(15)+1;
Write(A[i],' ');
if A[i] mod 3 = 0 then A[i]:=0
End;
WriteLn;
Write('После: ');
For i:= 1 to 15 do
Write(A[i],' ')
End.
Гостьprogram al;
const n=15;
var a:array[1..n] of integer;
i:integer;
procedure zam;
begin
for i := 1 to n do
if a[i] mod 3=0
then
a[i]:=0;
end;
begin
writeln('vvedite massiv=');
for i:=1 to n do
readln(a[i]);
zam;
writeln('noviy massiv=');
for i := 1 to n do
write (a[i]:4);
readln;
end.
Не нашли ответ?
Похожие вопросы