Написать в паскаль. двухмерный массив размером m*n заполнить случайными целыми числами в интервале от -90 до 0. вывести полученный массив на экран в виде таблицы. найти количество элементов кратных 4 в последней строке.

kirill12123 kirill12123    3   03.06.2019 03:50    0

Ответы
PavelSol PavelSol  01.10.2020 17:44
const
  n = 5; m = 5;

var
  a: array [0..m, 0..n] of shortint;
  i, b, c: integer;

begin
  for i := 1 to m do
  begin
    for b := 1 to n do
    begin
      a[i, b] := random(-90, 0);
      write(a[i, b]:4);
      if (i = m) then
        if (a[i, b] mod 4 = 0) then
          c += 1;
    end;
    writeln((i = m) and (b = n) ? ' ' + c : '');
  end;
  writeln();
end.
ПОКАЗАТЬ ОТВЕТЫ
DENCHIK23371 DENCHIK23371  01.10.2020 17:44
Var a:array [1..200,1..200] of integer;
i,k,m,n:integer;
begin
writeln ('Введи размерность массива');
readln (m,n);
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=random(91)-90;
write (a[i,j]:4);
end;
writeln;
end;
for j:=1 to n do
if a[m,j] mod 4=0 then inc(k);
writeln (k);
readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика