Примечание: Ввод данных рандомный, но в скобках { } представлен альтернативный вариант ввода с клавиатуры. Также порядок ввода здесь по районам, но при желании можно изменить на ввод по массивам.
А) без использования дополнительного третьего массива
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 т/га
Размещение информации в определенном порядке называется сортировкой информации
Объяснение: