Регистрация
123arrem
26.06.2020 01:02
Информатика
Есть ответ 👍

Сделайте кластер о растровая графика

126
404
Посмотреть ответы 1

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

diant020502
diant020502
4,8(24 оценок)
Var   arr: array[1..100] of integer;   i, n, max, min: integer; begin   max: =1;   min: =1;   readln(n);   for i: =1 to n do     begin     read(arr[i]);       if arr[i] > arr[max] then max: =i       else if arr[i] < arr[min] then min: =i;     end;   writeln;   writeln('минимальный: ', arr[min], '');   writeln('максимальный: ', arr[max], ''); end.

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