Предмет: Информатика,
автор: Delanolucky
Помогите дам 100 баллов
найти сумму элементов массива кратное 7 на Паскале
Ответы
Автор ответа:
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];
Объяснение:
Похожие вопросы
Предмет: Русский язык,
автор: Dog6437
Предмет: Українська мова,
автор: fgcjgjyy8765
Предмет: Окружающий мир,
автор: котова6
Предмет: Алгебра,
автор: banana2014