Нарисовать блок-схему и написать программу для следующей задачи: Посчитать сумму чисел, кратных 5. Программа получает на вход числа, условием окончания ввода чисел, является число 0. В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число — сумму чисел, кратных 5.
Входные данные: 5, 12,30,0
выходные данные: сумма = 35
A:array[1..100,1..100] of integer;
i,j,N,z:integer;
Begin
WriteLn('Введите размерность матрицы A[N,N]:');
Write('N = ');
ReadLn(N);
WriteLn('Как заполнить матрицу?');
WriteLn('1 - автоматически, 0 - с клавиатуры');
ReadLn(z);
if z=1 then
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ');
End;
WriteLn
End
else
For i:= 1 to N do
For j:= 1 to N do
Read(A[i,j]);
z:=1;
For i:= 1 to N do
For j:= 1 to N do
if A[i,j]<>A[j,i] then z:=0;
if z=1 then WriteLn('Матрица семметрична относительно главной диагонали')
else WriteLn('Матрица не семметрична относительно главной диагонали')
End.