uses crt;
var
a,b:array [1..100] of integer;
i,k:integer;
Sa,Sb:real;
begin
write('Введите количество элементов массивов: '); read(k);
clrscr;
randomize;
writeln('Массив А:');
for i:=1 to k do
begin
a[i]:=random(50)-25;
b[i]:=random(100)-50;
Sa:=Sa+b[i];
Sb:=Sb+a[i];
write (a[i]:4);
end;
writeln; writeln('Массив В:');
for i:=1 to k do
write (b[i]:4);
writeln;
Sa:=Sa/k; Sb:=Sb/k;
writeln ('Сумма элементов массива А: ',Sa);
writeln ('Сумма элементов массива В: ',Sb);
if Sa>Sb then writeln ('Ср.(А)>Ср.(В)')
else
if Sa<Sb then writeln ('Ср.(А)<Ср.(В)')
else writeln ('Ср.(А)=Ср.(В)');
end.
Program Denisqaa;
uses crt;
const mas2:array[1..10] of integer=(-7, 89, 64, -43, 4, 6, 8, -12, 55, 99);
var
res: array[1..10] of integer;
i,sum:integer;
begin
writeln('++');
writeln('| ПРОГРАММА Denisqaa |');
writeln('++');
writeln('| Исходный массив | Новый массив |');
writeln('++');
sum:=0;
for i:=1 to 10 do
begin
if mas2[i]<0 then res[i]:=mas2[i]*2;
if mas2[i]>0 then res[i]:=mas2[i]*mas2[i];
if mas2[i]=0 then res[i]:=mas2[i];
sum:=sum+res[i];
writeln('| ',mas2[i]:8,' | ',res[i]:8,' | ');
writeln('++');
end;
writeln();
writeln('Сумма элементов нового массива ',sum)
end.
