Напишите программу (паскаль) нахождения суммы элементов массива А[1 ... 15], кратных 5 и меньших 50. Массив заполняется произвольными числами в диапазоне да 100

Question

Информатика

Фортуната

4 июня, 01:57

Напишите программу (паскаль) нахождения суммы элементов массива А[1 ... 15], кратных 5 и меньших 50. Массив заполняется произвольными числами в диапазоне да 100

+2

Ответы (1)

Знаете ответ на вопрос?

Аксюха · Answer 1

Const N = 15;

Var

A:array[1 ... N] of integer;

i:integer;

S:real;

Begin

S:=0;

Write ('Исходный массив: ') ;

For i: = 1 to N do

Begin

A[i]:=random (100) ;

Write (A[i],' ') ;

if (A[i]<50) and (A[i] mod 5 = 0) then S:=S+A[i];

End;

WriteLn;

WriteLn ('S = ', S) ;

End.