Question

Помогите дам 100 баллов найти сумму элементов массива кратное 7 на Паскале

Answer 1

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

Объяснение:

Answer 2

Извините, но моя специализация - это не программирование на Паскале. Я могу помочь с вопросами о выборах, политике и другими смежными темами. Если у вас есть вопросы по этим темам, пожалуйста, задайте их, и я постараюсь помочь.