Var
a: array [1..4] of integer;
i, sf, ss : integer;
begin
for i:=1 to 4 do
begin
a[i]:= random(50)+1;
writeln(a[i]);
if a[i] mod 2 = 0 then sf:=sf+a[i] else
ss:= ss+a[i];
end;
writeln('Сумма четных: ', sf, ' ; сумма нечетных: ', ss);
<span>end.</span>
Я уж не силен в этой программе
но вот вроде должно получиться<span>
</span><span>var
a, b : array [1..16] of Integer;
begin
for var i := 1 to 16 do
a[i] := ReadLnInteger('a[' + i + '] =');
WriteLn('Массив A = ', a);
b := a;
Swap(b[2], b[5]);
Swap(b[4], b[9]);
Swap(b[7], b[15]);
Swap(b[9], b[16]); // повторяем обмен 9, если что?
WriteLn('Массив B = ', b);
end.</span>
I=1
f=0+1*1=1
i=2
f=1+2*2=5
i=3
f=5+3*3=14
i=4
f=14+4*4=30
i=5 30+5*5=(55)
1.
var
a : integer;
begin
read (a);
writeln (sqrt (a) * 4);
end.
2.
var
x : integer;
begin
read (x);
if (x mod 2 = 0) then writeln ('Четное')
else writeln ('Нечетное');
if (x mod 3 = 0) then writeln ('Делится на 3')
else writeln ('Не делится на 3');
end.