Найти сумму четных элементов массива целых чисел

@D1JleR · Регистрация: 03.06.2011

Студворк — интернет-сервис помощи студентам

найти сумму четных элементов массивацелых чисел. Размерность массива - 20.Заполнение массива осуществить случайными числами от 100 до 200.

Добавлено через 14 минут
у меня получилось как то вот так!

Pascal

program massiv;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
  var mas:array [1..20] of integer;
  i,sum:integer;
 
begin
randomize;
sum:=0
for i:=1 to 20 do
mas [i]:=random(100)+101;
writeln(x[i]);
if x[i] mod 2=0 then sum:=sum+[i];
writeln('summa chetnyh chisel = ',sum');
end
readln;
 
 
 
end.

@sergof · 14.06.2011, 08:54

найти сумму четных элементов массивацелых чисел. Размерность массива - 20.Заполнение массива осуществить случайными числами от 100 до 200.
только я не уверен насчет случайных от 100 до 200.

Pascal

var mas:array [1..20] of integer;
 x, i,sum:integer;
begin
randomize;
sum:=0;
for i:=1 to 20 do
mas [i]:=random(100)+100;//заполняем
for i:=1 to 20 do
writeln(mas[i]);//выводим на экран
for i:=1 to 20 do
if (mas[i] mod 2)=0 then sum:=sum+mas[i];//находим сумму
writeln('summa chetnyh chisel = ',sum);
end.

Опции темы