Ответы на вопрос:
Если не видно на скриншоте
Program v1;
var a:array[0..30]of integer;
i,min,max,n,t:integer;
begin
write('Введите размерность матрицы: '); readln(n);
randomize;
for i:=1 to n do a[i]:=random(100)-50;
write('Значение матрицы: ');
for i:=1 to n do write(a[i]:5); writeln;
max := 1;
min := 1;
t:=0;
for i := 1 to n do
begin
if a[i] > a[max] then
max := i
else
if a[i] < a[min] then
min := i;
end;
for i := 1 to n do
t:=a[min]*a[max];
WriteLn('Среднее арифметическое: ', (a[max] + a[min])/2 ,' ' ,'Произведение максимального элемента на минимальный равно:', t);
end.
Популярно: Информатика
-
kulakov200315.05.2020 05:25
-
vadimminaev22825.05.2020 11:22
-
safirr17.03.2021 04:19
-
Артем22221113.02.2020 02:54
-
Vika383926.08.2021 10:23
-
лолкекчибурек110.12.2022 12:51
-
оскарик392904.08.2020 03:28
-
Малефисента706.08.2020 17:09
-
кира63107.05.2020 11:01
-
pollifoxs19.06.2021 18:20