Задание:
Дан одномерный массив целых чисел. Найти сумму всех четных элементов массива, стоящих на четных местах (имеющих четные номера). Массив задается с помощьюгенератора случайных чисел. Если можно с блок-схемой
Решение:
Const n=10; {Можно подставить любое число}var a: array[1… n] of integer; i,s: integer; begin randomize; for i: =1 to n do begin a[i]: =random (8)+1; {Массив заполняется числами от 1 до 9} write (a[i],'); end; writeln; s: =0; for i: =1 to n do if (i mod 2)=0 then s: =s+a[i]; writeln (s); end.
Знаете другой ответ?