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

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

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

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

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

PascalABCNET

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

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

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

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

Она*

глобальной*

VarA:array[1..15]of integer;i:integer;BeginWrite('До:    ');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;beginfor i := 1 to n doif a[i] mod 3=0 thena[i]:=0;end;beginwriteln('vvedite massiv=');for i:=1 to n doreadln(a[i]);zam;writeln('noviy massiv=');for i := 1 to n dowrite (a[i]:4);readln;end.