Вопрос, который вызвал трудности
Составьте программу вычисления суммы отрицательных элементов в массиве A[1..10].
+ сделать чтобы это с .txt файла вводилось. Я не знаю как, но тема задания "Работа с текстовыми файлами".
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
Var i,k,s: integer;
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;<br> end;
close(f);
writeln;
writeln('сумма отрицательных: ',s);
end.
Файл c.txt во вложении.
Скачать вложение Текст (TXT)