как сделать так чтобы экран ноутбука стал как обычным. И ещё как убрать чёрные рамки по бокам
Взарание

219

362

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

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

ТуристАртемий

Информатика

4,7(56 оценок)

Var a: array[1..100] of integer; k,i,min: integer; begin min: =30001; write('введите кол-во чисел '); read(k); for k: = 1 to k do begin write('введите число '); read(i); if (i mod 5 = 0)and(i < min)and(i> 0) then min: =i; end; write('ответ -> ',min); end.