Помогите дам 100 баллов
найти сумму элементов массива кратное 7 на Паскале
Ответ
5/5 (1 оценка)
1
Romkabazz 2 года назад
Светило науки - 6 ответов - 0 раз оказано помощи

Ответ: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];

Объяснение: