Алг Число
нач
цел А
вывод "Введите целое число", нс
ввод А
если mod(А,2) = 0 то
вывод "Число четное"
иначе
вывод "Число нечетное"
все
кон
Языки второго поколения (2GL) создавались для того, чтобы облегчить
тяжёлую работу по программированию, перейдя в выражениях языка от
низкоуровневых машинных понятий ближе к тому, как обычно мыслит
программист. Эти языки появились в 1950-е годы, в частности, такие языки
как Фортран и Алгол.
Наиболее важной проблемой, с которыми столкнулись разработчики языков
второго поколения, стала задача убедить клиентов в том, что созданный
компилятором код выполняется достаточно хорошо, чтобы оправдать отказ от
программирования на ассемблере. Скептицизм по поводу возможности
создания эффективных программ с помощью автоматических компиляторов был
довольно распространён, поэтому разработчикам таких систем должны были
продемонстрировать, что они действительно могут генерировать почти такой
же эффективный код, как и при ручном кодировании, причём практически
для любой исходной задачи.
Uses
Crt;
const
n = 10;
type
V = array[1..n] of integer;
function Mid(var a: V): double;
var
i, s: integer;
begin
s := 0;
for i := 1 to n do s := s + a[i];
Mid := s / n
end;
var
x: V;
i, j: integer;
m: double;
begin
Randomize;
m := 0;
for i := 1 to 5 do
begin
Writeln('Элементы массива ', i);
for j := 1 to n do
begin
x[i] := Random(100);
Write(x[i]:3)
end;
Writeln;
m := m + Mid(x)
end;
Writeln('Среднее арифметическое пяти массивов равно ', m)
end.
<u>Тестовое решение:</u>
Элементы массива 1
95 44 54 86 52 39 28 79 29 43
Элементы массива 2
75 55 26 22 12 93 34 60 34 42
Элементы массива 3
55 80 50 54 52 46 85 47 11 86
Элементы массива 4
33 35 5 64 36 66 76 55 24 43
Элементы массива 5
31 63 66 11 88 4 31 99 28 39
Среднее арифметическое пяти массивов равно 76.6
А где примеры? Ну носители инфы это флешки, жеские диски и так далее