1. Создать файл, состоящий из N целых чисел. Вывести содержимое этого файла на экран. 2. Найти сумму чётных положительных элементов файла, созданного

@Лёля17 · Регистрация: 18.04.2010

Студворк — интернет-сервис помощи студентам

1 задача есть по 1 надо сделать вторую я незнаю как помогите. цёмик вас=*)

@Artishok · 19.04.2010, 00:09

файл типизированный?

Добавлено через 12 минут
текстовый файл

Pascal

var
  f: text;
  i, n, c: integer;
  sum: real;
 
 
begin
  assign(f, 'new.txt');
  rewrite(f);
  writeln('введите кол-во чисел в фале');
  readln(n);
  for i := 1 to n do 
  begin
    readln(c);
    writeln(f, c);
  end;
  close(f);
  reset(f);
  sum := 0;
  while not eof(f) do 
  begin
    readln(f, c);
    write(c, ' ');
    if c > 0 then begin
      sum := sum + c;
    end;
  end;
  writeln;
  close(f);
  writeln('сумма положительных чисел в файле');
  writeln(sum);
end.

@Лёля17 0 / 0 / 0 Регистрация: 18.04.2010 Сообщений: 3
		1
	1. Создать файл, состоящий из N целых чисел. Вывести содержимое этого файла на экран. 2. Найти сумму чётных положительных элементов файла, созданного 18.04.2010, 21:35. Показов 1817. Ответов 1 Метки нет (Все метки) 1 задача есть по 1 надо сделать вторую я незнаю как помогите. цёмик вас=*) 0

Опции темы

1. Создать файл, состоящий из N целых чисел. Вывести содержимое этого файла на экран. 2. Найти сумму чётных положительных элементов файла, созданного

Решение