Создать текстовый файл из трех массивов

@user700 · Регистрация: 02.02.2013

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

Доброго вечера, помогите, пожалуйста, решить следующую задачку:

Создать текстовый файл из трех массивов вещественных чисел (в каждой строке один массив). Считать его и выдать на экран номера отрицательных элементов в каждом массиве. Если таких нет, то тоже выдать сообщение.

@Kordn · 11.06.2013, 11:13

Pascal

const
  n = 5;
 
var
  f: text;
  a: array [1..n] of real;
 
begin
  assign(f, '123.txt');
  rewrite(f);
  for var j := 1 to 3 do 
  begin
    for var i := 1 to n do 
    begin
      read(a[i]);
      write(f, a[i], ' ');
    end;
    writeln(f);
  end;
  close(f);
  reset(f);
  for var j := 1 to 3 do 
  begin
    var found := false;
    write('В ', j, ' массиве: ');
    for var i := 1 to n do 
    begin
      read(f, a[i]);
      if a[i] < 0 then begin
        write(i, ' ');
        found := true;
      end;
    end;
    readln(f);
    if found = false then write('нет');
    writeln;
  end;
end.

@user700 0 / 0 / 0 Регистрация: 02.02.2013 Сообщений: 10
		1
	Создать текстовый файл из трех массивов 10.06.2013, 22:05. Показов 1083. Ответов 1 Метки нет (Все метки) Доброго вечера, помогите, пожалуйста, решить следующую задачку: Создать текстовый файл из трех массивов вещественных чисел (в каждой строке один массив). Считать его и выдать на экран номера отрицательных элементов в каждом массиве. Если таких нет, то тоже выдать сообщение. 0

	11.06.2013, 11:13

Опции темы

Создать текстовый файл из трех массивов

Решение