Var a, max: integer;
begin
read(a);
max := -99999;
while(a <> 0) do
begin
if(a > max) then max := a;
read(a);
end;
writeln(max);
<span>end.</span>
===== PascalABC.NET =====
begin
var a := ArrRandom(19, 27, 74);
a.PrintLines
end.
Мне кажется что единичным в данном случаи. Так как Коле не понравился кретный кинофильм, а не вообще кинофильмы.
1)с A1 по J1 вводим сколько помидоров собрал каждый .
2)в K1 пишем дневную норму.
3)в L1 пишем стоимость 1кг помидоров .
4)с A2 по J2 вводим следующую формулу:
=ЕСЛИ(A1<=K1;A1*L1;K1*L1+2*(A1-K1)*L1) - это пример для ячейки A2. Для следущих (B2-J2) просто в формуле заменяете A на букву соответствующего столбца (B-J).
Высказывание соответствует для имени Елена (первая буква е-гласная, четвертая буква н-согласная)