Вычислить произведение отрицательных чисел - Turbo Pascal

@kolya9 · Регистрация: 07.04.2010

Пускай на диске есть файл 'zadanie1.pas', состоящий из 10 целых чисел (записать через пробел). Вычислить произведение отрицательных чисел

@Mиxaил · 18.05.2010, 00:54

Pascal

var
  mult, a: integer;
 
begin
  assign(input, 'zadanie1.txt');   {с этого файла ('zadanie1.pas') ты не сможешь прочитать}
  reset(input);
  mult := 1;
  while not eof(input) do
  begin
    read(a);
    if a < 0 then mult := mult * a;
  end;
  close(input);
  writeln('произведение отрицательных чисел файла: ', mult);
  readln;
end.

@kolya9 0 / 0 / 0 Регистрация: 07.04.2010 Сообщений: 22
		#1
	Вычислить произведение отрицательных чисел - Turbo Pascal 18.05.2010, 00:18. Просмотров 409. Ответов 1 Метки нет (Все метки) Пускай на диске есть файл 'zadanie1.pas', состоящий из 10 целых чисел (записать через пробел). Вычислить произведение отрицательных чисел 0

Опции темы