Сделать программу в паскале ввести 10 чисел и из них найти минимум и максимум

201

311

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

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

lalal2345

Информатика

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

var a: array[0..9] of integer;

i,min,max: integer;

begin

for i: =0 to 9 do readln(a[i]);

min: =a[0];

for i: =0 to 9 do if(min> a[i]) then min: =a[i];

max: =a[0];

for i: =0 to 9 do if(max< a[i]) then max: =a[i];

writeln(max,' ', min);

readln;

end.

nosorpg02

Информатика

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

Из 8л переживаешь в 5л из 5л в 3л. в 5л осталось 2л переливаешь их в пустую 5л. из 3л 3л переливаешь в 5л. доливаешь в 5л 2л. переливаешь в 3л. в 5 л осталось 2л. снова переливаешь в наполненный на 2л 5л бидон. в нем стало 4 л. из 3л переливаешь в 8л