Регистрация
CTRAHNK
02.08.2021 21:33
Информатика
Есть ответ 👍

Микропроцессордың тактілік жиелігі өлшенеді​

186
230
Посмотреть ответы 1

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

VasyPupok228
VasyPupok228
4,8(44 оценок)
Pascalabc.net версия 3.3. сборка 1583 (25.11.2017) var a: array[1..10] of integer; begin   var max: =2;   var min: =101;   for var i: =1 to 10 do   begin   a[i]: =random(0,100);   write(a[i],' ');   if (a[i] mod 2=0) and (a[i]> max)     then max: =a[i];     if (a[i] mod 2=1) and (a[i]< min)     then min: =a[i];   end;   writeln;   writeln('минимальный нечетный елемент - ',min);   writeln('максимальный четный елемент - ',max); readln; end.

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