Консультация № 138533
29.05.2008, 17:41
0.00 руб.
0 1 1
Уважаемые эксперты, мне необходимо составить программу, формирующую массив целых чисел и подсчитать сумму нечетных по порядку чисел в массиве. Премного благодарен.

Обсуждение

давно
Старший Модератор
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.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа