const
n = 10; //количество элементов массива
var
a: array [1..n] of real;
i: integer;
begin
for i:= 1 to n do
begin
writeln('Введите ', i, ' элемент массива');
readln(a[i]); //вводим очередной элемент массива
end;
write('Исходный массив: ');
for i:= 1 to n do
write(a[i], ' '); //Выводим исходный массив
writeln; //Перевод на новую строку
write('Полученный массив: ');
for i:= 1 to n do
begin
a[i]:= a[i] * a[n]; //элемент массива умножаем на последний элемент
write(a[i], ' '); //выводим полученный элемент массива
end;
end.
Пример программы:
program test;
uses crt, classes;
var number:integer;
begin
number:=123;
write(number mod 10,number div 10 mod 10, number div 100 mod 10);
delay(1000); //чтобы окно ещё на 1 секунду осталось, функция из модуля crt
end.
Для Pascal ABC.NET:
program test;
var number:integer;
begin
number:=123;
write(number mod 10,number div 10 mod 10, number div 100 mod 10);
sleep(1000); //чтобы окно ещё на 1 секунду осталось
end.
Вывод:
321