Вычислить количество положительных компонентов файла

@Linkez · Регистрация: 21.12.2012

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

Записать в файл последовательного доступа N целых чисел, полученных с помощью генератора случайных чисел.
Вычислить количество положительных компонентов файла.

Kodzaev · 23.03.2013, 22:25

Pascal

Var
  f: Text;
  i,n,k: Integer;
  s: String;
BEGIN
Assign(f,'1.txt');
Rewrite(f);
Write('Введите кол-во чисел: ');
Readln(n);
For i:=1 to n do
Writeln(f,Random(101)-50);
Reset(f);
While not Eof(f) do
begin
  Readln(f,s);
  If s[1]<>'-' Then
  Inc(k);
end;
Close(f);
Writeln('Файл "1.txt" создан');
Writeln('Кол-во положительных = ',k);
END.

@Linkez 0 / 0 / 0 Регистрация: 21.12.2012 Сообщений: 26
		1
	Вычислить количество положительных компонентов файла 23.03.2013, 15:34. Показов 1377. Ответов 1 Метки нет (Все метки) Записать в файл последовательного доступа N целых чисел, полученных с помощью генератора случайных чисел. Вычислить количество положительных компонентов файла. 0

	23.03.2013, 22:25

Вычислить количество положительных компонентов файла

Решение