Акпараты екылык кодтау аркылы ұсыну 1 сабақ қаиталау инфарматика

181

314

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

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

хочусдохнуть

Информатика

4,6(80 оценок)

Const n=30; var a: array[1..n] of integer; i,min: integer; begin min: =1000; for i: =1 to n do begin readln(a[i]); if (a[i] div 100> =1) and(a[i]< min) then min: =a[i]; end; if (min=1000) then writeln('такого числа нет') else writeln('минимальное 3-значное число равняется ',min); end.