Регистрация
sonyaponchic
25.02.2020 11:06
Информатика
Есть ответ 👍

с информатикой тема: графический редактор GIMP​

105
356
Посмотреть ответы 1

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

elvinaaminova2004
elvinaaminova2004
4,6(86 оценок)
Var   a: array [1..10] of integer; min,i: integer; begin i: =1 while i< 11 do begin readln(a[i]); i: =i+1; end; i: =1; n: =a[1]; repeat if min> a[i] then  min: =a[i] i: =i+1; until i=10; a[10]: =min; end

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