Программа к учебнику информатики для 10 класса К.Ю. Полякова и Е.А. Еремина. Глава 8. Программа № 33.
Вход:
1
2
3
4
5
Результат: Массив задом наперёд: 5 4 3 2 1
program inputArray;
const N = 5;
var A: array[1..N] of integer;
i: integer;
begin
writeln ( 'Введите элементы массива:' );
for i:=1 to N do
begin
write('A[',i,']=');
read(A[i])
end;
writeln ( 'Массив задом наперёд:' );
for i:=N downto 1 do
write(A[i],' ');
end.
Программа к учебнику информатики для 10 класса К.Ю. Полякова и Е.А. Еремина. Глава 8. Программа № 34.
Вход:
нет
Результат: <5 случайных чисел от 20 до 100>
program randArray;
const N = 5;
var A: array[1..N] of integer;
i: integer;
begin
for i:=1 to N do
begin
A[i]:= 20 + random(81);
end;
writeln ( 'Массив:' );
for i:=1 to N do
write(A[i],' ');
end.
Программа к учебнику информатики для 10 класса К.Ю. Полякова и Е.А. Еремина. Глава 8. Программа № 32.
Вход:
нет
Результат: 1 4 9 16 25
program filArray;
const N = 5;
var A: array[1..N] of integer;
i: integer;
begin
for i:=1 to N do
A[i]:= i*i;
for i:=1 to N do
write(A[i],' ');
end.