Помогите переделать задачу

Tosia · 11.10.2011, 18:24

вводятся 10 чисел. Найти сумму положительных чисел и минимальный среди отрицательных (через repeat until)

program gg;
uses crt;
var i,j,k,min,sum:integer;
begin
clrskr;
sum:=0;
for i:=1 to 10 do begin
read(k);
if k>0 then sum:=sum+k
else
if k<min then min:=k;
end;
writeln(sum);
writeln(min);
readkey;
end.

AlexZir · 13.10.2011, 12:32

Код:

program gg;
uses crt;
var i,j,k,min,sum:integer;
begin
clrscr;
sum:=0;
i:=1;
repeat
read(k);
if k>0 then sum:=sum+k
else
if k<min then min:=k;
inc(i);
until i>10;
writeln(sum);
writeln(min);
readkey;
end.

11.10.2011, 18:24	#1 (permalink)
Tosia Новичок Регистрация: 11.10.2011 Сообщений: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите переделать задачу вводятся 10 чисел. Найти сумму положительных чисел и минимальный среди отрицательных (через repeat until) program gg; uses crt; var i,j,k,min,sum:integer; begin clrskr; sum:=0; for i:=1 to 10 do begin read(k); if k>0 then sum:=sum+k else if k<min then min:=k; end; writeln(sum); writeln(min); readkey; end.

13.10.2011, 12:32	#2 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Код: program gg; uses crt; var i,j,k,min,sum:integer; begin clrscr; sum:=0; i:=1; repeat read(k); if k>0 then sum:=sum+k else if k<min then min:=k; inc(i); until i>10; writeln(sum); writeln(min); readkey; end.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070