Дан массив,состоящий из 20-ти целых чисел.выяснить,на сколько максимальный элемент превосходит минимальный : 3 ,котаны: 3 нужна программа в паскале

Показать ответ

Ответ:

kyzminlexa06

01.10.2020 13:31

Var a:array [1..20] of integer; i,max,min,r:integer;
begin
max:=0; min:=24000;
for i:=1 to 20 do
readln(a[i]);
for i:=1 to 20 do
if a[i]<min then min:=a[i];
for i:=1 to 20 doif a[i]>max then max:=a[i];
r:=max-min;
writeln;
writeln(r);
readln;
end.

0,0(0 оценок)

Популярные вопросы: Информатика

karolka10201020

07.10.2021 02:02

Установите порядок действий для удаления строки из таблицы в текстовом процессоре MicrosoftWord 1) установить курсор в любую ячейку нужной строки 2) нажать на ячейку правой кнопкой...

SergeyValitov228

22.05.2023 06:32

. что напечатает программа на экран: beginx: =4; у: =3; y: =y-x; if (x 0) or (y 0) then write (“красное ) elsewrite (“синее ); end...

aika113

02.02.2020 08:26

Вкоробке лежат 7 разноцветных карандашей. какое количество информации содержит сообщение что из коробки достали именно красный карандаш? :...

gamer3106

29.10.2021 16:33

Визначте, вміст скількох DVD-дисків об’ємом 4,7 Гб можна зберегти на жорсткому диску об’ємом 4 Тб....

keklolcheburek1243

05.02.2020 03:51

очень нужно. Напишите код на Питоне с циклом while по для новичков.!. Подбрасывайте два шестигранных кубика, пока сумма значений на них не будет равна как минимум 10 Пример результата:...

ДаняПрохоров

09.02.2021 11:52

Вожди племени обменялись письмами. письмо тумбо содержало 50 символов.юмбо-30 символов. количество информации,переданное в письме тумбо содержало 250 бит информации.а письмо юмбо...

alena1706

12.03.2021 16:06

Определите род имен существительных. что для этого нужна делать? выпиши слова в три столбика по .допишите в каждый столбик еще по два слова.флаг,страна,гимн,родина,море,герб,земля,озера,небо,цветок,уравнения,польто,...

fox2121

12.03.2021 16:06

Длина стороны квадрата равна длине стороны многоугольника,у которого двадцать равных между собой сторон .найди периметр двадцатиугольника ,если периметр квадрата равен 16 см...

ДашаСалина

12.03.2021 16:06

Напишите ,все мероприятия хрущева во внутренней политики,и распределите их на положительные и отрицательные. буду : )...

KapEwa

12.03.2021 16:06

Впрямоугольном треугольнике abc,угол c=90 градусов. bc=15 см, угол b=50 градусов.найти: угол а,ab,если sin50 градусов=0,7660, cos50 градусов=0.6428 умоляю...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку