составьте программку вычисления суммы отрицательных частей в массиве A[1..10].+ сделать

Составьте программку вычисления суммы отрицательных частей в массиве A[1..10].
+ сделать чтобы это с .txt файла вводилось. Я не знаю как, но тема задания "Работа с текстовыми файлами".

Задать свой вопрос
Игорь Евликов
Какой язык программирования?
Boris
пренебрегал указать. Паскаль
1 ответ
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 klt;0 then s:=s+k;
  end;
  close(f);
  writeln;
  writeln('сумма отрицательных: ',s);
end.

Файл c.txt во вложении.



, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт