Пример программы с использованием одномерного массива:
Var a:Array [ 1..10] of real;
x: real;
i:integer;
Begin
For i:=1to5do
a[i]:=5;
For i:=5to10do
a[i]:=10;
x:=a[4] + a[6];
x:=x/a[3];
For i:=1to10do
writeln (a[i]);
writeln (x);
end.
Данная программа является только образцом, который не имеет никакого смысла. Эта программа выводит сначала 5 пятёрок, затем 5 десяток, после одну тройку.

4. Выполнить задание
Задание
Набрать вышеописанный пример программы. Отладить. Изменить программу так, чтобы программа выводила сначала 5 единиц, затем 5 двоек, после найти сумму первой и последней ячеек массива.

asvpdsh    2   06.04.2020 09:22    2