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

sabinabaigali sabinabaigali    3   01.04.2021 12:43    7

Ответы
Белоеморе Белоеморе  01.05.2021 12:46

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

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика