составьте программу вычисления суммы отрицательных элементов в массиве A[1..10].
+ сделать чтобы это с .txt файла вводилось. Я не знаю как, но тема задания "Работа с текстовыми файлами".
+ сделать чтобы это с .txt файла вводилось. Я не знаю как, но тема задания "Работа с текстовыми файлами".
More Questions From This User See All
Answers & Comments
f: text;
begin
assign(f,'c.txt');
reset(f);
s:=0;
for i:=1 to 10 do
begin
read(f,k);
write(k,' ');
if k<0 then s:=s+k;
end;
close(f);
writeln;
writeln('сумма отрицательных: ',s);
end.
Файл c.txt во вложении.