Назад   Задать вопрос
Информатика
ВУЗ
5 отметок
+ В закладки
06.10.2013, 21:43

2.2 Дан одномерный массив целых чисел. найти сумму всех четных элементов массива, стоящих на четных местах (имеющих четные номера). Массив задается с помощью генератора случайных чисел.

Комментарии (0)

Решить задание

Добавить ответ, могут только Зарегистрированные или Авторизированные пользователи.

Ответы и решения


07.10.2013, 09:33

var
i,sum:integer;
mas:array[1..10] of integer;
begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
mas[i]:=random(99);
end;
for i:=1 to 10 do
begin
if (mas[i] mod 2 = 0) and (i mod 2 = 0) then
sum:=sum+mas[i];
end;
writeln('sum=', sum);
end.

Оценка: 3.2 (голосов: 6)

Комментарии (0)