Зделайте доклад на тему отношение человека к компьютеру

Question

Информатика: Зделайте доклад на тему отношение человека к компьютеру

Skotonyaka · Accepted Answer

program d;

var min,max,a : integer;

mas: array[1..5] of integer;

begin

for a: =1 to 5 do

begin

readln(mas[a]); //вводим число и записываем его в массив

if mas[a]< =mas[min] then min: =a; //проверяем , если элемент массива меньше эталона , то запоминаем его индекс и перезаписываем эталон

if mas[a]> =mas[max] then max: =a; //проверяем , если элемент массива больше эталона , то запоминаем его индекс и перезаписываем эталон

end;

writeln;

writeln (mas[max]); //выводи элементм максимальный элемент

for a: =1 to 5 do

if (a< > min)and(a< > max) then writeln (mas[a]); //выводим все элементы кроме макс.и мин.

writeln(mas[min]); //выводим минимальный

end.

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