Question

ДАЮ 100 БАЛЛОВ!! Паскаль. Дан двумерный массив А[4,5], заполненный случайным образом из диапазона чисел от 2 до 100. Найти сумму элементов массива, стоящих на главной диагонали, при условии, что их значение не превышает 20

Answer 1

type

 matrix = array[1..4, 1..5] of integer;

const

 max = 100;

 min =2;

var

 arr:matrix;

 sum:integer;

begin

 randomize;

 sum:=0;

 for var i:= 1 to 4 do

   for var j:=1 to 5 do

     arr[i, j]:=random(max-min+1)+min;

 write('Массив заполнен случайными числами из заданного диапазона: ', #10);

 for var i := 1 to 4 do

  begin

   for var j := 1 to 5 do

    begin

     write(arr[i,j]:3);

    end;

    write(#10);

  end;

 for var i:=1 to 4 do

   for var j:=1 to 5 do

     if (i = j) and (arr[i, j] <= 20) then

         inc(sum, arr[i, j]);

 write(#10, 'Сумма элементов главной диагонали, не превышающих 20 = ', sum);

end.