Регистрация
ulzhan16061999
11.01.2021 08:55
Информатика
Есть ответ 👍

решить задачи по информатике очень

214
251
Посмотреть ответы 1

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

glebyha22
glebyha22
4,4(10 оценок)
Var i,maxk,maxd,r: integer;     a: array[1..30] of integer; begin   for i: =1 to 30 do   a[i]: =random(100);   maxk: =0;   maxd: =0;   for i: =1 to 30 do   begin   if (a[i] mod 2 = 0) and (a[i]> maxk) then maxk: =a[i];   if (a[i] mod 2 < > 0) and (a[i]> maxd) then maxd: =a[i];   end;   r: =maxk-maxd;   writeln(r); end. 

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