Укажите название таблицы и поля для создания запроса

Если не видно на скриншоте

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!