Регистрация
leralda2107ko
20.03.2022 07:34
Информатика
Есть ответ 👍

Паскаль abc, решите плз второе

219
419
Посмотреть ответы 1

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

Арте2281337
Арте2281337
4,8(57 оценок)
Pascal var a: array[1..15] of integer; i,imin: integer; begin imin: =1; for i: =1 to 15 do read(a[i]); for i: =1 to 15 do if a[i]< a[imin] then imin: =i; write(a[imin]); end.

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