Есть ответ 👍

Разабрать алгаритом реалезации игры 40 ​

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

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


Uses crt; var a: array[1..5] of integer; i,min: integer; begin     writeln('введите пять чисел: ');     for i: =1 to 5 do       read(a[i]);     min: =a[1];     for i: =1 to 5 do       if a[i]< min then min: =a[i];     writeln;     write('минимальный элемент ',min); end.

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