11.10.2011, 18:24 | #1 (permalink) |
Новичок
Регистрация: 11.10.2011
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите переделать задачу
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. |
11.10.2011, 18:24 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
В более обсуждаемых темах можно найти полезные ответы Помогите переделать задачу Помогите переделать схему Помогите решить задачу) Помогите переделать программу в код паскаль,чтобы она была без классов Помогите решить задачу. |
13.10.2011, 12:32 | #2 (permalink) |
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
|
|
|