Постройте таблицу,отображающую земельные ресурсы зарубежных стран. Часть площади Европы, занятая лесами, составляет 32,8%. Часть площади Северной Америки, занятая пашнями и плантациями, составляет 12,8% . Часть площади Азии, занятая пастбищами, составляет 24%. Часть площади Африки, занятая пашнями и плантациями, составляет 6,2%. Часть площади Азии, занятая лесами, составляет 21% . Часть площади Северной Америки, занятая пастбищами, составляет 16,8% . Часть площади Австралии и Океании, занятая пашнями и плантациями, составляет 5,7%. Часть площади Северной Америки, занятая лесами, составляет 30,9%. Часть площади Австралии и Океании, занятая пастбищами, составляет 54,6% . Часть площади Южной Америки, занятая лесами, составляет 53%. Часть площади Европы, занятая пастбищами, составляет 18,2%. Часть площади Австралии и Океании, занятая лесами, составляет 18,1%. Часть площади Южной Америки, занятая пашнями и плантациями, составляет 7,8% . Часть площади Африки, занятая пастбищами, составляет 26,2%. Часть площади Южной Америки, занятая пастбищами, составляет 26%. Часть площади Африки, занятая лесами, составляет 23,2%. Часть площади Азии, занятая пашнями и плантациями, составляет 17%. Часть площади Европы, занятая пашнями и плантациями, составляет 29,6% . Часть площади Южной Америки, занятая прочими землями, составляет 13,2% . Часть площади Австралии и Океании, занятая прочими землями, составляет 21,6% . Часть площади Европы, занятая прочими землями, составляет 19,4% . Часть площади Северной Америки, занятая прочими землями, составляет 39,5%. Часть площади Африки, занятая прочими землями, составляет 44,4%. Часть площади Азии, занятая прочими землями, составляет 38% .
const n=10;
var a:array [1..n] of real;
i,j,k:integer;
s,v:real;
begin
write(' Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random*20-10;
write(a[i]:7:2);
if a[i]<0 then
begin
s:=s+a[i]*a[i];
k:=k+1
end;
if a[i]>0 then a[i]:=i
end;
writeln;
write('Преобразованый массив: ');
for i:=1 to n do write(a[i]:7:2);
writeln;
for i:=1 to n do
for j:=1 to n-i do
if a[j]>a[j+1] then
begin
v:=a[j];
a[j]:=a[j+1];
a[j+1]:=v
end;
write('Отсортированый массив: ');
for i:=1 to n do write(a[i]:7:2);
writeln;
writeln('Среднее арифметическое квадратов отрицательных чисел равно ',s/k:0:2);
end.
Program Massive;
uses Crt;
const
M = 6;
var
D: array [1..M] of real;
i: integer;
sum: real;
indexMax: integer;
begin
ClrScr;
Randomize;
writeln ('Massive:');
indexMax := 1;
D[1] := 10;
D[1] := D[1] - Random(20);
writeln (D[1]);
for i:= 2 to M do
begin
D[i] := 10.0;
D[i] := D[i] - Random(20);
writeln (D[i]);
if (D[i] > D[indexMax]) then
begin
indexMax := i;
end;
end;
writeln ('indexMax = ', indexMax);
sum := 0;
for i:= indexMax + 1 to M do
if (D[i] < 0) then sum := sum + D[i];
writeln ('Sum = ', sum);
readln
end.