Составить программу для ввода в эвм произвольной вещественной матрицы размером m*n и вывода первого не равного заданному s элемента каждой строки. написать программу в pascalabc.net

118

224

Посмотреть ответы 2

Ответы на вопрос:

Coffee1998

Информатика

4,4(65 оценок)

Var m, n, i, j: integer; s: real; a: array[,] of real; begin write('введите s: '); read(s); write('введите m, n: '); read(m, n); setlength(a, m + 1, n + 1); writeln('введите элементы матрицы: '); for i : = 1 to m do for j : = 1 to n do read(a[i, j]); for i : = 1 to m do begin for j : = 1 to n do if a[i, j] < > s then begin writeln(a[i, j]); break; end; if a[i, j] = s then writeln('-'); end; end. пример: введите s: 7 введите m, n: 3 4 введите элементы матрицы: 7 4 3 7 3 5 1 4 7 7 7 7 4 3 -