Цикл while, вычисление сумм и последовательностей

@аааааааа · Регистрация: 09.11.2014

Author24 — интернет-сервис помощи студентам

вот код программы

Pascal

var k,x,max:longint;
begin
readln(x);
max:=x;
k:=0;
while x <> 0 do
begin
readln(x);
if (x <> 0) and (x > max)
then k:=k+1;
end;
write(k);
readln;
end.

посмотрите пожалуйста. при первом тесте выдает 2

@volvo · 12.12.2014, 00:05

Давайте обойдемся без указания сайта, и без ссылок на него. Копируйте условие сюда.

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	12.12.2014, 00:05	2
	Давайте обойдемся без указания сайта, и без ссылок на него. Копируйте условие сюда. 0