Если не видно на скриншоте
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.
Объяснение:
Chip-penza.ru
Чип-тюнинг в Пензе
Main menu
Skip to primary content
Skip to secondary content
Главная
Авто
Советы автомобилистам
AUTHOR ARCHIVES: admin
Тест драйв jaguar f pace: После обновления Jaguar F-Pace полностью сменил салон — ДРАЙВ
После обновления Jaguar F-Pace полностью сменил салон — ДРАЙВ
Войти
Регистрация
Забыли пароль?
user
Выход
Найти ДРАЙВ
Наши
тест-драйвы
Наши
видео
Цены и
комплектации
Сообщество
DRIVE2
Новости
Наши тест-драйвы
Наши видео
Поиск по сайту
Полная версия сайта
Войти
Выйти
Acura
Alfa Romeo
Aston Martin
Audi
Bentley
Bilenkin Classic Cars
BMW
Brilliance
Cadillac
Changan
Chery
CheryExeed
Chevrolet
Chrysler
Citroen
Daewoo
Datsun
Dodge
Dongfeng
DS
FAW
Ferrari
FIAT
Ford
Foton
GAC
Geely
Genesis
Great Wall
Haima
Haval
Hawtai
Honda
Hummer
Hyundai
Infiniti
Isuzu
JAC
Jaguar
Jeep
KIA
Lada
Lamborghini
Land Rover
Lexus
Lifan
Maserati
Mazda
Mercedes-Benz
MINI
Mitsubishi
Nissan
Opel
Peugeot
Porsche
Ravon
Renault
Rolls-Royce
Saab
SEAT
Skoda
Smart
SsangYong
Subaru
Suzuki
Tesla
Toyota
Volkswagen
Volvo
Zotye
УАЗ
Kunst!
