Циклический алгаритм Опции

[Sonni]

Вроде циклический:
Вывести столбиком следующие числа: 2,1 ; 2,2 ; 2,3 ; … , 2,8.

[Merlin]

Program mas;
 const n=5;
 var
 a:array[1..n] of real;
 i:integer;
begin
writeln('Введите элементы массива ');
for i:=1 to n do
 readln(a[i]);
 for i:=1 to n  do
 writeln(a[i]);
 writeln;
readln;
end.

Это не то ?

Сообщение отредактировано: volvo - 2.11.2006 8:44

[volvo]

Не совсем...

for i := 21 to 28 do
  writeln(i/10:0:1);

или так:

i := 2;
while i < 2.8 do begin
  i := i + 0.1;
  writeln(i:0:1);
end;