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

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.

Comments

Ты циклы вообще проходил?

---

Тогда где ты задачу взял? Или её без циклов решить надо было?

---

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

---

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

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.

Comments

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

---

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

---

Она*

---

глобальной*