Задание1: В массиве из 100 случайных целых чисел найти максимальный элемент и количество вхождений этого элемента в массив. Задание2: Реализовать простые операции с матрицами: транспонирование, умножение на число, сложение и перемножение двух матриц. Значения матриц задавать случайным образом, выбор операции предоставлять пользователю.

Question

Информатика

Дуся

13 июня, 05:43

Задание1: В массиве из 100 случайных целых чисел найти максимальный элемент и количество вхождений этого элемента в массив. Задание2: Реализовать простые операции с матрицами: транспонирование, умножение на число, сложение и перемножение двух матриц. Значения матриц задавать случайным образом, выбор операции предоставлять пользователю.

+5

Ответы (1)

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

Венедиктушка · Answer 1

1 Задание.

var

a:array[1 ... 100] of integer;

i, max, kol:integer;

begin

randomize;

max:=0;

for i:=1 to 100 do

a[i]:=random (101) ;

for i:=1 to 100 do

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

for i:=1 to 100 do

if a[i]:=max then kol:=kol+1;

write (max, kol) ;

end.