Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Вывести элементы массива

Автор: ibragimov 31.5.2011, 08:09

Вывести элементы массива из 10 вещественных числе, и записать их в текстовый файл. smile

Автор: Infesta 31.5.2011, 22:17

Код


Program massiv;
Const n=10;
Var   a:text;
      B:Array [1..n] of integer;
      t:byte;
 
Begin
  Assign(a,'File.txt');
  Rewrite(a);
  For t:=1 to n do
    Readln(B[i]);
  For t:=1 to n do
    Write(a,B[t]);
Close(a);
end.

kaktotak