Question

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

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

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

С циклами. Просто нужно решить..

Answer 3

Просто не понимаю почему +1

Answer 4

А тебе для какого Паскаля надо, функция random в turbo, ABC и ABC.net различается

Answer 5

PascalABCNET

Answer 6

Ну можешь написать random(1,15), то же самое будет

Answer 7

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.

Answer 8

Ты хоть проверяй, ест это компилятор или давится =))

Answer 9

Переменная цикла for должна описываться в том же блоке, что и цикл for

Answer 10

Они и глобально может быть, просто она у неё нигде не объявленна

Answer 11

Она*

Answer 12

глобальной*