давно
Старший Модератор
31795
6196
16.05.2008, 17:08
общий
это ответ
Здравствуйте, Михаил Медведев!
В приложении программа.
Удачи!
Приложение:
const n=15;var a,b,c,d:integer;begin write(‘A:‘); readln(a); c:=0; randomize; for b:=1 to n do begin d:=random(61)-30; if d>a then c:=c+d; write(d:4); end; writeln; writeln(c:5);end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.