)информатика pascalabc 1)составьте программу , которая выводит на экран все двухзначные числа,сумма - id812769220221118 от altemirovap0cn54 18.11.2022 14:39

Question

Информатика: )информатика pascalabc 1)составьте программу , которая выводит на экран все двухзначные числа,сумма цифр которых делится на 7. 2)составьте программу: с клавиатуры вводятся два натуральных числа x и y. вывести на экран все четные числа на отрезке [x,y] и подсчитать сумму этих чисел.

altemirovap0cn54 · Accepted Answer

Const
m = 4;
n = 3;

var
a: array[1..m, 1..n] of integer;
i, j, im, jm, mx, e: integer;

begin
Randomize;
mx := -1000;
for i := 1 to m do
begin
    for j := 1 to n do
    begin
      a[i, j] := Random(100) - 50;
      e := abs(a[i, j]);
      if mx < e then begin
        mx := e; im := i; jm := j
      end;
      write(a[i,j]:4)
    end;
    writeln
end;
writeln;
writeln('Максимальный по модулю элемент a[', im, ';', jm, ']=', mx)
end.

Тестовое решение:

-12 -36 -41
   7 -45 12
-23 48   0
-1 31 14

Максимальный по модулю элемент a[3;2]=48

MOGZ ответил