Примеры?
Дискета
Жесткий диск
Компакт-диск
Карта памяти
Флешка
Кассета
Пластинка
Перфокарта
Можно долго продолжать этот список...
Раз массив был заявлен на 48 значений целого типа, так и будет выделено 48 ячеек памяти этого типа
Не real, а read:
for i:=1 to 10 do
read(A[i]);
Сколько раз вы выводите массив?
Потому что это что-то непонятное:
for i:=1 to 10 do
writeln (A[1],' ',A[2],' ',A[3],' ',A[4],' ',A[5],' '); (10 раз выводятся первые 5 элементов(?))
writeln (A[6],' ',A[7],' ',A[8],' ',A[9],' ',A[10],' ');
Если нужно вывести массив 1 раз:
for i:=1 to 10 do
writeln (A[i],' ');
Лист защищен без пароля, чтобы случайно не повредить формулы.
Program comparison;
var
a,b,c:real;
begin
write ('Введите первое число:');
readln(a);
write ('Введите второе число:');
readln(b);
if a>b then
begin
c:=a-b;
write ('Первое число больше второго на ', c);
end;
if a<b then
begin
c:=b-a;
write ('Второе число больше первого на ', c);
end;
if a=b then
write ('Числа равны');
end.