Информатика, опубликовано 2018-08-22 19:44:02 by Гость

Тема: Одномерные массивы. В паскале в массиве даны 10 целых чисел. Нужно найти сумму четных чисел.

Ответ оставил Гость

Var
  A: Array[0..9] of Integer;
i, Sm: Integer;
begin
  Sm:=0;
  for i:=0 to 9 do
  A[i]:=Random(300) - 20;

for i:=0 to 9 do
  if (A[i] Mod 2 = 0) then
  Sm:=Sm + A[i];

  WriteLn(Sum = , Sm);
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.

Форма вопроса доступна на полной версии этой страницы.