Фактически, сама программа написана:
program Cyfral;
uses crt;
Var mas: array [1..50]of real;
a:byte;
begin
for a:=1 to 50 do begin
write(a)
end
end.
но числа выводятся без пробелов.
подскажите, что сделать?
write(a,' ')
Или еще лучше
write(a:4)
Последний вариант будет выводить через разное число пробелов, зато ровными столбцами.
Остается неясным назначение строк
uses crt;
Var mas: array [1..50]of real;
Убери их, оставь только слово var
Заодно и цикл напиши проще: вместо
for a:=1 to 50 do begin
write(a)
end
напиши
for a:=1 to 50 do write(a);
write(a,' ') - так правильно
Если :4 будет оставлять 4 поля поз запись. Количество пробелов т. е. будет разным. (в зависимости от количества цифр) . Но будет красивее
PS uses crt по моему не нужно. Тут нет ни одной функции оттуда.
⇢