Решить задачу Pascal

В массиве состоящем из 15 целых чисел заменить все числа кратные 3 на 0.

Question

Информатика

Лавреня

13 июля, 00:15

Решить задачу Pascal

В массиве состоящем из 15 целых чисел заменить все числа кратные 3 на 0.

+4

Ответы (2)

Знаете ответ на вопрос?

Меля · Answer 1

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.

Сильва · Answer 2

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.

Решить задачу PascalВ массиве состоящем из 15 целых чисел заменить все числа кратные 3 на 0.

Решить задачу Pascal

В массиве состоящем из 15 целых чисел заменить все числа кратные 3 на 0.