а) буквы в словах слева направо разбивают на группы по две буквы в каждой, дальше меняют местами буквы в группах (если в слове нечётное количество букв, последнюю букву не переставляют): урок, весна, каникулы, информация, мокрому дождь не страшен; б) первую буква слова ставят последней, вторую - предпоследней и т. д.: арена, корзина, рюкзак; в) (наверное, АКЛАН, а не АНКЛАН?) также, как и в а), но если в слове нечётное количество букв, то последняя группа состоит из трёх букв и в ней 1-ая буква становится 3-ей, а 3-я - 1-ой: канал, гитара, телевизор; г) пронумеруем буквы слова слева направо: 0, 1, 2, ..., n-2, n-1, n. Вначале поставим букву под номером 0, потом n, затем 1, далее n-1 и т.д.: балкон, вагон, кабинет.
Примечание: Ввод данных рандомный, но в скобках { } представлен альтернативный вариант ввода с клавиатуры. Также порядок ввода здесь по районам, но при желании можно изменить на ввод по массивам.
А) без использования дополнительного третьего массива
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 т/га
