давно
Старший Модератор
31795
6196
29.05.2008, 23:50
общий
это ответ
Здравствуйте, Верещагин Михаил!
Программа в приложении.
Вопросы задавайте в мини-форум.
Удачи!
Приложение:
const n=10;var a:array[1..n]of integer; b,c:integer;begin {создаем массив и выводим} randomize; c:=0; for b:=1 to n do begin a[b]:=random(20); write(a[b]:3); inc(c,ord(odd(b))*a[b]);{суммируем на лету} end; writeln; {выводим результат} writeln(‘Summa:‘,c:5);end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.