Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Дан одномерный массив заролните его десятичной дробью

Ответ оставил Гость

Var
 n,m,k,i,l:longint;
 a:array[1..100]of real;
begin
 for i:=1 to 100 do a[i]:=i/100;
 for i:=1 to 100 do writeln(a[i]:0:2);
readln;
end;