Задать вопрос
6 февраля, 06:17

Нужно задать массив 3 х4 случайными числами и по диагонали (сверху - вниз, слева-направо) определить их сумму и определить максимальное число.

+4
Ответы (1)
  1. 6 февраля, 06:56
    0
    Var

    i, j, s, max:integer;

    a: array[1 ... 3,1 ... 4] of integer;

    begin

    randomize;

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

    for i:=1 to 3 do

    begin

    writeln;

    for j:=1 to 4 do

    begin

    a[i, j]:=random (10) ;

    write (a[i, j]:2) ;

    if i=j then

    begin

    if a[i, j]>max then max:=a[i, j];

    s:=s+a[i, j]

    end

    end

    end;

    writeln;

    writeln ('Сумма ', s,'; максимальное число ', max)

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Нужно задать массив 3 х4 случайными числами и по диагонали (сверху - вниз, слева-направо) определить их сумму и определить максимальное ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы