Регистрация
AliceAngelCat123
20.05.2020 04:22
Информатика
Есть ответ 👍

Задано целое число вывести на ступне​

222
401
Посмотреть ответы 1

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

bm22337
bm22337
4,7(10 оценок)
Var a: array [1..7] of byte; k,c,d: integer; begin for k: =1 to 6 do begin read(c); a[k]: =c; end; a[7]: =2*a[1]; for k: =1 to 6 do  if a[k]< a[k+1] then d: =a[k]; write(d); end.

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