Регистрация
Kuznetsova8903
27.01.2021 08:17
Информатика
Есть ответ 👍

Эргономика сөз жұмбақ

Сурагымен, жауабы
​

147
290
Посмотреть ответы 1

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

yra8372004
yra8372004
4,6(38 оценок)
//"школьный" вариант //pascal abc.net 3.1 сборка 1256 const   n=10;   var   ar: array[1..n] of integer;   i,max,min: integer; b: boolean; begin randomize; b: =false; max: =integer.minvalue; min: =integer.maxvalue; writeln('array: '); for i: =1 to n do   begin   ar[i]: =random(-100,100);   if (ar[i]> max) and not(odd(ar[i])) and (ar[i]> 0) then   begin     max: =ar[i];     b: =true;   end;   if (ar[i]< min) and not(odd(ar[i])) and (ar[i]> 0) then   begin     min: =ar[i];     b: =true;   end;   write(ar[i]: 4);   end; writeln; if b=false then writeln('нет удовлетворяющих условиям чисел') else   begin   writeln('max=',max);   writeln('min=',min);   end; end. пример работы программы: array:   98   60 -41 -88   63 -81 -77 -96 -18   51 max=98 min=60

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