Вывод массива на экран и в файл

[Vitalyas]

Всем доброго времени суток!
Задача: Вычислить сумму элементов одномерного массива. Если сумма больше 0 умножить все элементы массива на 2, иначе изменить знак всех элементов массива на противоположный. Значения элементов массива ввести с клавиатуры. Результирующий массив вывести на экран и в файл.

Все я сделал, вроде бы, кроме вывода результирующего массива на экран и файл, не получается что-то...

Вот код программы:

var  
   sum:real;
   i:integer;
   a:array[1..10] of real;
begin
   writeln('Введите элементы массива (10 целых чисел) в одной строке и нажмите <Enter>');
   write('->');
   for i:=1 to 10 do read(a[i]);
   sum:=0;
   for i:=1 to 10 do 
      begin 
      sum:=sum+a[i]
      end;
   Writeln('summa do ', sum);
   if sum>0 then sum:=sum*2
            else sum:=sum*(-1);
   Writeln('summa posle ', sum);
end.

[Stilet]

Все я сделал, вроде бы

Нет. Не сделал.
Пункт

умножить все элементы массива на 2, иначе изменить знак всех элементов

не выполнен совершенно.

[Vitalyas]

Сообщение от Stilet

Нет. Не сделал.
Пункт не выполнен совершенно.

Даааа, заметил, что сделал не правильно...Все-таки подскажите как с выводом массива то поступить?

[Vitalyas]

Делаю вот так

var  
   sum:real;
   i:integer;
   a:array[1..10] of real;
begin
   writeln('Введите элементы массива (10 целых чисел) в одной строке и нажмите <Enter>');
   write('->');
   for i:=1 to 10 do read(a[i]);
   sum:=0;
   for i:=1 to 10 do 
      begin 
      sum:=sum+a[i]
      end;
   Writeln('summa do ', sum);
   if sum>0 then 
                for i:=1 to 10 do a[i]:=a[i]*2
            else 
                for i:=1 to 10 do a[i]:=a[i]*(-1);
   Writeln('массив', a);
end.

и выводит заместо массива вот это:"Program1.$pascal_array1"

[Vitalyas]

Всем спасибо, разобрался сам =)
вот код, если кому понадобится

var  
   sum:real;
   i:integer;
   a:array[1..10] of real;
begin
   writeln('Введите элементы массива (10 целых чисел) в одной строке и нажмите <Enter>');
   write('->');
   for i:=1 to 10 do read(a[i]);
   sum:=0;
   for i:=1 to 10 do 
      begin 
      sum:=sum+a[i]
      end;
   if sum>0 then 
                for i:=1 to 10 do a[i]:=a[i]*2
            else 
                for i:=1 to 10 do a[i]:=a[i]*(-1);
   write ('Массив в результате махинаций: ');
   For i:=1 to 10 do write(a[i]:4);
end.

Теперь нужна помощь с выводом в файл =))

[Stilet]

Эт просто:

var t:Text;
...
begin
assign(t,'файл'); rewrite(t);
...
For i:=1 to 10 do begin write(a[i]:4); write(t,a[i]:4);end;
close(t);
...

[Vitalyas]

Сообщение от Stilet

Эт просто:

var t:Text;
...
begin
assign(t,'файл'); rewrite(t);
...
For i:=1 to 10 do begin write(a[i]:4); write(t,a[i]:4);end;
close(t);
...

Так он пишет последний элемент. Вот правильный код уже полностью правильный =)

var  
   sum:real;
   i:integer;
   a:array[1..10] of real;
   f:text;
begin
   assign(f,'f1.txt');
   rewrite(f);
   writeln('Введите элементы массива (10 целых чисел) в одной строке и нажмите <Enter>');
   write('-> ');
   for i:=1 to 10 do read(a[i]);
   sum:=0;
   for i:=1 to 10 do 
      begin 
      sum:=sum+a[i]
      end;
   if sum>0 then 
                for i:=1 to 10 do a[i]:=a[i]*2
            else 
                for i:=1 to 10 do a[i]:=a[i]*(-1);
   write ('Массив в результате махинаций: ');
   For i:=1 to 10 do write(a[i]:4);
   For i:=1 to 10 do write(f,a[i]:4);
   close(f);
end.

[Stilet]

Так он пишет последний элемент

Не верю...

[Vitalyas]

Сообщение от Stilet

Не верю...

Ну проверь сам

[Аватар]

А чего проверять-то?

For i:=1 to 10 do begin write(a[i]:4); write(t,a[i]:4);end;

и

For i:=1 to 10 do write(a[i]:4);
For i:=1 to 10 do write(f,a[i]:4);

Эквивалентны, первый чуть оптимальней