Информатика 8 класс . Смотреть на скрин.​

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