Примечание: Ввод данных рандомный, но в скобках { } представлен альтернативный вариант ввода с клавиатуры. Также порядок ввода здесь по районам, но при желании можно изменить на ввод по массивам.
А) без использования дополнительного третьего массива
const n=20; var a,b: array[1..n] of integer; sa: real; i: byte; begin randomize; sa:=0; for i:=1 to n do begin; writeln ('Район № ',i); {write ('Площадь пшеницы: '); readln (a[i]); write ('Собрано пшеницы: '); readln (b[i]);} a[i]:=random(50,100); b[i]:=random(500,1000); writeln ('Площадь пшеницы: ',a[i],' га'); writeln ('Собрано пшеницы: ',b[i],' т'); writeln ('Средняя урожайность: ',b[i]/a[i]:6:2,' т/га'); writeln; sa:=sa+b[i]/a[i]; end; sa:=sa/n; writeln; writeln ('Средняя урожайность по области = ',sa:6:2,' т/га'); writeln; writeln ('Массив 1:'); println (a); writeln ('Массив 2:'); println (b); end.
Результат работы для N=2 Район № 1 Площадь пшеницы: 98 га Собрано пшеницы: 815 т Средняя урожайность: 8.32 т/га
Район № 2 Площадь пшеницы: 63 га Собрано пшеницы: 583 т Средняя урожайность: 9.25 т/га
Средняя урожайность по области = 8.79 т/га
Массив 1: 98 63 Массив 2: 815 583
В) с использованием дополнительного массива
const n=20; var a,b,c: array[1..n] of real; sa: real; i: byte; begin randomize; sa:=0; for i:=1 to n do begin; writeln ('Район № ',i); {write ('Площадь пшеницы: '); readln (a[i]); write ('Собрано пшеницы: '); readln (b[i]);} a[i]:=random(50,100); b[i]:=random(500,1000); writeln ('Площадь пшеницы: ',a[i],' га'); writeln ('Собрано пшеницы: ',b[i],' т'); c[i]:=b[i]/a[i]; writeln ('Средняя урожайность: ',c[i]:6:2,' т/га'); sa:=sa+c[i]; end; sa:=sa/n; writeln; writeln ('Средняя урожайность по области = ',sa:6:2,' т/га'); writeln; writeln ('Массив 1:'); println (a); writeln ('Массив 2:'); println (b); writeln ('Массив 3:'); println (c) end.
Результат работы для N=2 Район № 1 Площадь пшеницы: 97 га Собрано пшеницы: 891 т Средняя урожайность: 9.19 т/га Район № 2 Площадь пшеницы: 87 га Собрано пшеницы: 945 т Средняя урожайность: 10.86 т/га
Также порядок ввода здесь по районам, но при желании можно изменить на ввод по массивам.
А) без использования дополнительного третьего массива
const n=20;
var
a,b: array[1..n] of integer;
sa: real;
i: byte;
begin
randomize;
sa:=0;
for i:=1 to n do begin;
writeln ('Район № ',i);
{write ('Площадь пшеницы: ');
readln (a[i]);
write ('Собрано пшеницы: ');
readln (b[i]);}
a[i]:=random(50,100);
b[i]:=random(500,1000);
writeln ('Площадь пшеницы: ',a[i],' га');
writeln ('Собрано пшеницы: ',b[i],' т');
writeln ('Средняя урожайность: ',b[i]/a[i]:6:2,' т/га');
writeln;
sa:=sa+b[i]/a[i];
end;
sa:=sa/n;
writeln;
writeln ('Средняя урожайность по области = ',sa:6:2,' т/га');
writeln;
writeln ('Массив 1:');
println (a);
writeln ('Массив 2:');
println (b);
end.
Результат работы для N=2
Район № 1
Площадь пшеницы: 98 га
Собрано пшеницы: 815 т
Средняя урожайность: 8.32 т/га
Район № 2
Площадь пшеницы: 63 га
Собрано пшеницы: 583 т
Средняя урожайность: 9.25 т/га
Средняя урожайность по области = 8.79 т/га
Массив 1:
98 63
Массив 2:
815 583
В) с использованием дополнительного массива
const n=20;
var
a,b,c: array[1..n] of real;
sa: real;
i: byte;
begin
randomize;
sa:=0;
for i:=1 to n do begin;
writeln ('Район № ',i);
{write ('Площадь пшеницы: '); readln (a[i]);
write ('Собрано пшеницы: '); readln (b[i]);}
a[i]:=random(50,100);
b[i]:=random(500,1000);
writeln ('Площадь пшеницы: ',a[i],' га');
writeln ('Собрано пшеницы: ',b[i],' т');
c[i]:=b[i]/a[i];
writeln ('Средняя урожайность: ',c[i]:6:2,' т/га');
sa:=sa+c[i];
end;
sa:=sa/n;
writeln;
writeln ('Средняя урожайность по области = ',sa:6:2,' т/га');
writeln;
writeln ('Массив 1:');
println (a);
writeln ('Массив 2:');
println (b);
writeln ('Массив 3:');
println (c)
end.
Результат работы для N=2
Район № 1
Площадь пшеницы: 97 га
Собрано пшеницы: 891 т
Средняя урожайность: 9.19 т/га
Район № 2
Площадь пшеницы: 87 га
Собрано пшеницы: 945 т
Средняя урожайность: 10.86 т/га
Средняя урожайность по области = 10.02 т/га
Массив 1:
97 87
Массив 2:
891 945
Массив 3:
9.18556701030928 10.8620689655172