1. Информатика
  2. Сделать программу в паскале

Сделать программу в паскале ввести 10 чисел и из них найти минимум и максимум

Zender111 Zender111    2   20.05.2019 00:30    1

Ответы
bashatsn bashatsn  13.06.2020 06:59

var a:array[0..9] of integer;

      i,min,max:integer;

begin

 for i:=0 to 9 do readln(a[i]);

 min:=a[0];

  for i:=0 to 9 do if(min>a[i]) then min:=a[i];

 max:=a[0];

for i:=0 to 9 do if(max<a[i]) then max:=a[i];

writeln(max,' ', min);

readln;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
olegstar74p0a994 olegstar74p0a994  26.08.2019 13:00
Вывести на экран все четные числа из отрезка от a до b, при этом границы отрезка заведомо правильно вводятся с клавиатуры. паскаль, цикл while...
grinanovatana2 grinanovatana2  21.08.2019 15:50
Доступ к файлу jazz.mp3, находящемуся на сервере music.com, осуществляется по протоколу http. фрагменты адреса файла закодированы буквами от а до ж. запишите последовательность...
artem12345678903 artem12345678903  21.08.2019 15:50
Сответами на вопросы: 1. информационные технологии для сбора информации 2. опишите бит, байт 3. информационные ресурсы общества...
dOgIchARM dOgIchARM  13.07.2019 06:30
Скачать из интернета прайс-лист любой компьютерной фирмы и на его основе подобрать комплектующие для компьютера, предназначенного для решения определенного круга . учебный...
alinanazarova20 alinanazarova20  13.07.2019 06:30
1. известно, что нормальный вес человека можно определить, используя формулу: вес = рост (см) * окружность гр. клетки (см) / 240 составить алгоритм и программу для определения...
Destorshka Destorshka  23.05.2019 12:10
4. угадайте правило шифрования и расшифруйте слова: ткафетра, ткнитсни, тицратна, ланигиро. !...
dimat123 dimat123  03.10.2019 13:10
Напишите программу вывода последовательности чисел: 1 9 25 49 81 121 на паскале через while надо как-то)...
Egor190606 Egor190606  03.10.2019 13:10
Составьте программу которая формирует массив из 16 случайных целых чисел от -20 до 20 и подсчитывает количество отрицательных элементов...
Yasenevo1036 Yasenevo1036  03.10.2019 13:10
Var sum: real; x,n: integer; begin readln(n); begin sum: =0; for x: =1 downto 1/n*n do sum: =sum+x; end; writeln(sum); end. в чём проблема? подскажите ....
DEAFKEV DEAFKEV  03.10.2019 13:20
Три свидетеля дорожного происшествия сообщили сведения о скрывшемся нарушителе. эдгар утверждает, что тот был на чёрном«renault», владимир сказал, что нарушитель уехал...

Популярные вопросы