Считать матрицу из файла, вывести ее на экран и найти в ней сумму положительных элементов

@bonaquas · Регистрация: 14.03.2018

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

Пусть имеется файл с именем data.txt, где в первой строке содержится число строк матрицы, а во второй – число ее столбцов, в следующих строках располагаются элементы матрицы, записанные в виде прямоугольного массива. Требуется составить программу, которая считывает матрицу из файла, выводит ее на экран и находит в ней сумму положительных элементов. Вывод матрицы реализовать в виде процедуры, а поиск суммы положительных элементов реализовать функцией.

@ZX Spectrum-128 · 12.06.2018, 08:43

Pascal

const
  max = 100;
 
var
  a: array[1..max, 1..max] of integer;
  n, i, j, k: integer;
  s: integer;
  f: text;
 
begin
  s := 0;
  assign(f, 'data.txt');
  reset(f);
  readln(f, n);
  readln(f, k);
  writeln('Исходный массив:');
  for i := 1 to n do
  begin
    for j := 1 to k do
    begin
      read(f, a[i, j]);
      write(a[i, j]:4);
      if a[i, j] > 0 then 
        s := s + a[i, j];
    end;
    writeln;
  end;
  write('Сумма положительных: ', s);
  close(f);
end.

Файл:

4
3
1 2 3
4 5 6
-1 -2 0
1 2 -5

Сообщение от bonaquas

Вывод матрицы реализовать в виде процедуры, а поиск суммы положительных элементов реализовать функцией.

Эту часть работы - самостоятельно

@bonaquas 2 / 2 / 0 Регистрация: 14.03.2018 Сообщений: 11
		1
	Считать матрицу из файла, вывести ее на экран и найти в ней сумму положительных элементов 07.06.2018, 10:58. Показов 1862. Ответов 1 Метки нет (Все метки) Пусть имеется файл с именем data.txt, где в первой строке содержится число строк матрицы, а во второй – число ее столбцов, в следующих строках располагаются элементы матрицы, записанные в виде прямоугольного массива. Требуется составить программу, которая считывает матрицу из файла, выводит ее на экран и находит в ней сумму положительных элементов. Вывод матрицы реализовать в виде процедуры, а поиск суммы положительных элементов реализовать функцией. 0

	12.06.2018, 08:43

Считать матрицу из файла, вывести ее на экран и найти в ней сумму положительных элементов

Решение