Задача №1

Заполнить массив размерностью 20 случайным образом числами от 0 до 150. Найти сумму максимального и минимального элементов массива.

Задача №2

Заполнить матрицу размером 5 х5 случайными числами от 0 до 200. Найти сумму элементов массива побочной диагонали.

Question

Информатика

Евстратий

3 июня, 22:56

Задача №1

Заполнить массив размерностью 20 случайным образом числами от 0 до 150. Найти сумму максимального и минимального элементов массива.

Задача №2

Заполнить матрицу размером 5 х5 случайными числами от 0 до 200. Найти сумму элементов массива побочной диагонали.

+1

Ответы (1)

Знаете ответ на вопрос?

Сосипатр · Answer 1

1)

var a:array[1 ... 20] of integer;

max, min, n, i:integer;

begin

randomize;

n:=20;

for i:=1 to n do a[i]:=random (150) ;

begin

min:=a[1];

for i:=1 to n do if a[1]>a[i] then min:=a[i];

end;

begin

max:=a[1];

for i:=1 to n do if a[1]
end;

writeln (min) ;

writeln (max) ;

end.

2)

const n=5;

var x: array[1 ... n, 1 ... n] of integer;

i, j, s: integer;

begin

randomize;

writeln ('Matrisa:') ;

for i:=1 to n do

begin

for j:=1 to n do

begin

x[i, j]:=random (200) ;

write (x[i, j]:5) ;

end;

writeln

end;

j:=8;

for i:=1 to n do

begin

j:=j-1;

s:=s+x[i, (n+1-i) ];

end;

writeln ('Summa: ', s) ;

end.