Регистрация
dashhach
20.02.2022 22:02
Информатика
Есть ответ 👍

ОТВЕТЫ НА ИНФОРМАТИКУ

128
477
Посмотреть ответы 1

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

igubanova
igubanova
4,7(89 оценок)
//pascal abc.net v3.1 сборка 1219 const   n=20; var   ar: array[1..n] of integer;   max,min,i: integer; begin   max: =integer.minvalue;   min: =integer.maxvalue;   writeln('array: ');   for i: =1 to n do   begin     ar[i]: =random(-20,20);     write(ar[i]: 4);     if ar[i]< min then min: =ar[i];     if ar[i]> max then max: =ar[i];   end;   writeln;   writeln('sum=',min+max); end. пример работы программы: array:   20   5   -1 -13 -14   16 -10   19   -6 -12   6 -14   9 -11   12   -9 -11 -14   10   20 sum=6

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