Цитата:
Сообщение от ter12
5. Для линейного целого массива A[1..N] найти сумму всех: а) четных элементов; б) нечетных элементов; в) элементов, кратных 3.
|
Код:
const N=20;
var
a:array [1..n] of integer;
i,sum:integer;
procedure variant_a;
begin
sum:=0;
for i:=1 to N do begin
if i mod 2=0 then sum:=sum+a[i];
end;
writeln ('Сумма чётных элементов равна ',sum);
end;
procedure variant_b;
begin
sum:=0;
for i:=1 to N do begin
if i mod 2=1 then sum:=sum+a[i];
end;
writeln ('Сумма не чётных элементов равна ',sum);
end;
procedure variant_c;
begin
sum:=0;
for i:=1 to N do begin
if i mod 3=0 then sum:=sum+a[i];
end;
writeln ('Сумма элементов с номерами кратными 3 равна ',sum);
end;
begin
variant_a;
variant_b;
variant_c;
readln
end.