Question

(Язык Pascal) 1. Написать программу, которая запрашивает размерность двумерного массива, заполняет его случайными числами от 3 до 7 и вычисляет сумму элементов в строках массива.

2. Написать программу, которая запрашивает размерность квадратного двумерного массива, заполняет массив случайными числами от 5 до 9 и вычисляет сумму элементов побочной диагонали.

Answer 1

Ответ:

program massiv;

uses crt;

var a:array[1..10,1..10] of integer;{описание массива}

   i,j,n,s:integer;

begin

  clrscr;

  randomize;{генератор случайных чисел}

  writeln ('введите размерность массива');

  readln(n);

  s:=0;

for i:=1 to n do begin

for j:=1 to n do begin

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

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

end;

writeln;

end;

writeln;

for i:=1 to n do begin

for j:=1 to n do begin

if j=n-i+1 then

s:=s+a[i,n-i+1];

end;

end;

writeln ('Сумма элементов побочной диагонали=',s);

end.

Объяснение: