Написать программу нахождения суммы четных и нечетных элементов массива, заполне...

July 2022 1 2 Report

Написать программу нахождения суммы четных и нечетных элементов массива, заполненного случайным образом от -100 до 100

помогите пожалуйста!!!!!нужна программа в Pascal!!!!

Answers & Comments

salima100

Verified answer

Const n=10;
var a:array[1..n] of integer;
c,d,i: integer;
begin
  randomize;
  for i:=1 to n do
a[i]:=random(201)-100;
  Writeln('Заданные числа, с помощью рандома: ');
  for i:=1 to n do
writeln(a[i],' ');
for i:=1 to n do
  if a[i] mod 2=0 then c:=c+a[i] else d:=d+a[i];
  Writeln('Сумма четных элементов: ',c);
  Writeln('Сумма нечетных элементов: ',d);
end.

APALoff Объедините 3 цикла в один.

APALoff И зачем спрашивать количество цифр, если оно жёстко задано константой?

salima100 опечатка, сначала задавала, потом решила использовать константу

kak vy dumaete kak povliyalo stroitelstvo damby dlya zashity sankt peterburga ot n

Answer

liza13245768 July 2022 | 0 Ответы

napravlenie dvizheniya kakih chastic v provodnike prinyato za napravlenie toka

Answer

Answers & Comments

Verified answer

kak vy dumaete kak povliyalo stroitelstvo damby dlya zashity sankt peterburga ot n

napravlenie dvizheniya kakih chastic v provodnike prinyato za napravlenie toka

рекомендуемые вопросы

Helpful Links

Helpful Social