Напишите программу, которая в последовательности натуральных чисел определяет сумму четных чисел. программа получает на вход количество чисел в последовательности, а сами числа случайным образом. количество чисел не превышает 100. введённые числа не превышают 50. программа должна вывести исходные числа и число- сумму четных чисел. с объяснением ответа, .

200

495

Посмотреть ответы 2

Ответы на вопрос:

butovobrazz

Информатика

4,6(83 оценок)

Комментарии удалишь, попросил же с объяснением. var mass: array[1..100] of integer; g,s,i,sum: integer; begin sum: =0; i: =0; // задаем начальное значение счетчику randomize; //рандомизация writeln('введите количество чисел в массиве (до 100)'); readln(g); // водим количество чисел for s: =1 to g do // от нуля, до кол-ва чисел в массиве begin i: =i+1; mass[i]: =random(51); //51 потому что всегда -1 еще if (mass[i] mod 2) = 0 then sum: =sum+mass[i]; //проверяем на четность и плюсуем, если четное. writeln(mass[i]); end; writeln('чисел в массививе - '+g); //выводим значенияwriteln('сумма четных элементов = '+sum); end.