Pascal / Лабораторная работа №5
var
a: array [1..15] of real;
b: array [1..7]
of real;
c: array [1..8] of real;
i, f, e, r: integer;
S1, S2: real;
t: text;
begin
assign(t, 'C:\Users\Евгений\Documents\файлик.txt');
reset(t);
for i := 1 to 15 do
readln(t, a[i]);
close(t);
for i := 1 to 15 do
begin
f := i mod 2;
if f = 0 then
begin
e := i div 2;
b[e] := a[i];
end ;
if f <> 0 then
begin
r := (i + 1) div 2;
c[r] := a[i];
end ;
end;
S1 := 0;
for i := 1 to 7 do
S1 := S1 + b[i];
S2 := 0;
for i := 1 to 8 do
S2 := S2 + c[i];
writeln;
for i := 1 to 15 do
writeln(a[i]);
writeln;
for i := 1 to 7 do
writeln(b[i]);
writeln;
for i := 1 to 8 do
writeln(c[i]);
writeln;
if S1 > S2 then
writeln('Сумма чётных элементов массива "а" больше суммы нечётных элементов этого же массива')
else
writeln('Сумма нечётных элементов массива "а" больше суммы чётных элементов этого же массива');
end.