Дан целочисленный двумерный массив, размерности n х m. Вывести на экран те элементы, у которых остаток от деления на m равен k.Можно без рандомайза

Var a: array[1..50,1..50] of integer;
i, j, n, m,S: integer;
Begin
Write(‘сколько строк?’); Readln(n);
Write(‘сколько столбцов?’); Readln(m);
For i:=1 to n do
For j:=1 to m do
begin
write(‘a[‘,i,’,’,j,’)=’); readln (a[i,j]); {ввод двумерного массива}
end;
S:=0;
For i:=1 to n do
For j:=1 to m do
S:=S+a[i,j]; {подсчитывается сумма всех элементов}
Writeln(‘сумма элементов массива равна ‘,S);
End.
Должно быть на подобие этого

Kerizok    2   20.09.2020 16:04    12