Задание №3. Чтение из файла***
Задан массив однотипных целых чисел A[N], N (1 ≤ N ≤ 1000) в файле Input.txt. Найдите сумму элементов массива, расположенных в этом файле. В первой строке файла Input.txt задана длина массива. На следующей строке записаны соответствующие значения N элементов массива. Результат в виде суммы запишите в файл Output.txt.

Нужно прочитать из файла число \(N\), затем \(N\) элементов массива и найти их сумму.

Алгоритм:

• открыть файл Input.txt для чтения;
• считать длину массива \(N\);
• считать \(N\) чисел и прибавлять каждое к сумме;
• записать сумму в файл Output.txt.

Пример решения на Pascal:
var
f, g: text;
n, i, x, s: integer;
begin
assign(f, 'Input.txt');
reset(f);
assign(g, 'Output.txt');
rewrite(g);

read(f, n);
s := 0;
for i := 1 to n do
begin
read(f, x);
s := s + x;
end;

write(g, s);
close(f);
close(g);
end.

0 0 Пожаловаться