ответ:PascalВыделить код
Var A:array[1..100] of integer;
i,n,s:integer;
Begin
write('Введите кол-во элементов: ');readln(n);
For i:=1 to n do
A[i]:=random(31);
write(A[i]:3);
if A[i] mod 3 = 0 then s:=s+A[i];
Объяснение:
ответ:PascalВыделить код
Var A:array[1..100] of integer;
i,n,s:integer;
Begin
write('Введите кол-во элементов: ');readln(n);
For i:=1 to n do
Begin
A[i]:=random(31);
write(A[i]:3);
if A[i] mod 3 = 0 then s:=s+A[i];
Объяснение: