В области 20 районов.площади,засеянные пшеницей (в гектарах)и урожай,собранный в каждом районе(в центнерах)хранятся в двух масси
вах.определите средний урожайность пшеницы по каждому району и по области Задачу решить двумя способами А)без использования дополнительного третьего массива В)с использованием дополнительного массива
Примечание: Ввод данных рандомный, но в скобках { } представлен альтернативный вариант ввода с клавиатуры. Также порядок ввода здесь по районам, но при желании можно изменить на ввод по массивам.
А) без использования дополнительного третьего массива
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 т/га
1. (D3 + D5) / E6 ( в E7); (B2 + B4)/C5 (в C6). 2. а) значение переместится на строку выше б) значение переместится на строку ниже в) переместится на столбец влево г) переместится на столбец вправо
1. var i,n:integer; s:real; begin write('n = '); readln(n); s:=0; for i:=1 to n do s:=s+1/i; writeln('s = ',s); end.
Пример: n = 5 s = 2.28333333333333
2. var x,a,s:real; i:integer; begin write('x = '); readln(x); a:=x; s:=x; i:=1; while i<11 do begin i:=i+2; a:=x*x*a; s:=a/i; end; writeln('s = ',s); end.
