Var a: array[1..10] of integer; b: array[1..10] of real; i,n: integer; s: real; begin s:=0; n:=0; write('массив a: '); for i:=1 to 10 do begin read(a[i]); if a[i]<0 then begin s:=s+a[i]; n:=n+1; end; write(a[i],' '); end; s:=s/n; writeln; writeln('среднее арифметическое отрицательных: ',s); writeln('количество отрицательных: ',n); write('массив b: '); for i:=1 to 10 do begin if a[i]<0 then b[i]:=s else b[i]:=a[i]; write(b[i]:7:3); end; end.
var c, a: array[1..20] of integer; i: integer; begin write('Первый массив '); for i := 1 to 20 do begin c[i] := i * (-5); write(c[i], ' '); end; writeln; write('Преобразованный массив '); for i := 1 to 20 do begin a[i] := c[20 - i + 1]; write(a[i], ' '); end; end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var c: array[1..20] of integer; i: integer; begin write('Первый массив '); for i := 1 to 20 do begin c[i] := i * (-5); write(c[i], ' '); end; writeln; write('Преобразованный массив '); for i := 20 downto 1 do write(c[i], ' '); end.
b: array[1..10] of real;
i,n: integer;
s: real;
begin
s:=0; n:=0;
write('массив a: ');
for i:=1 to 10 do
begin
read(a[i]);
if a[i]<0 then
begin
s:=s+a[i];
n:=n+1;
end;
write(a[i],' ');
end;
s:=s/n;
writeln;
writeln('среднее арифметическое отрицательных: ',s);
writeln('количество отрицательных: ',n);
write('массив b: ');
for i:=1 to 10 do
begin
if a[i]<0 then b[i]:=s
else b[i]:=a[i];
write(b[i]:7:3);
end;
end.
массив a: 2 2 -3 1 -5 -6 -5 9 -7 5
среднее арифметическое отрицательных: -5.2
количество отрицательных: 5
массив b: 2.000 2.000 -5.200 1.000 -5.200 -5.200 -5.200 9.000 -5.200 5.000