из последовательности целых чисел от 0 до 200 выбрать и просуммировать отдельно ...

March 2022 1 12 Report

из последовательности целых чисел от 0 до 200 выбрать и просуммировать отдельно четные и нечетные.
Использовать функцию trunc

Answers & Comments

MagicSpace Const
maxn = 200;

type
myarr = array [1..maxn] of longint;

var
a: myarr;
sumch, sumnch: int64;

begin
sumch := 0;
sumnch := 0;
for i := 1 to 200 do begin
read(a[i]);
if (a[i] mod 2 = 0) then
sumch := sumch + a[i]
else
sumnch := sumnch + a[i];
end;
writeln('Сумма четных элементов = ', sumch);
writeln('Сумма нечетных элементов = ', sumnch);
end.

Answers & Comments

opredelite na kakoj vysote visit ulichnyj fonar esli ten ot vertikalno raspol

ulichnyj fonar visit na stolbe vysotoj 5m opredelite kakoj dliny ten budet ot

gidroliz veshestv mgcl2 na2sio3 nacl

chto takoe egoizm sostradaniya otvet nuzhen v 3 5 predlozheniyah zhelatelno s citat

2 metil 4 etildekan strukturnaya formula

najti ploshad figury ogranichennoj grafikami funkcij tolko pervoe

cepochka uravnenij reakciiukazat usloviya protekaniya i tip reakcii karbid alyumin

sostavit uravneniya reakcij v strukturnom vide ukazat tip i usloviya protekaniya

postroenie sechenijreshit vse 4

minutnaya strelka chasov v 15 raza dlinnee chasovoj opredelite vo skolko raz li

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

Helpful Links

Helpful Social