Регистрация
Makson3D
17.07.2020 10:47
Информатика
Есть ответ 👍

Інформатика практична номер 5 7 клас​

169
359
Посмотреть ответы 1

Ответы на вопрос:

serjo1216
serjo1216
4,4(70 оценок)
//pascal const n=100; //количество элементов массива var i,max,min: integer;       a: array[1..n] of integer; begin //считаем что массив уже заполнен //пусть начальное значение max заведомо меньше минимального а //начальное значение min больше максимального значения элемента массива   max: =-999999; min: =999999;   for i: =1 to n do begin       if a[i]> max then max: =a[i];       if a[i]< min then min: =a[i];   end;   writeln(max-min); end.

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