По pascalabc нужно сделать программу и блок схему вводится произвольная последовательность действительных чисел. найти наименьшее из всех чисел решите старым добрым способом как учат в школах) program var begin end и.т.д

274

312

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

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

Лучший1111кар

Информатика

4,5(23 оценок)

Program min_digit; var i, answer,temp, count: integer; begin answer : = 1000*1000*1000+13; read(count); for i: = 1 to count do begin read(temp); if (temp < answer)then answer : = temp; end; writeln(answer); end.

pervushin752

Информатика

4,4(14 оценок)

Program minimalnoe_chislo; var a,b,c,min: integer; begin writeln('введите 3 числа: '); readln(a,b,c); if a< b then min: =a else min: =b; if c< min then min: =c; writeln('наименьшее из чисел = ',min); end.