Отпечатать номер каждой строки, в которой значение ее наибольшего элемента оказалось больше заданной величины

@Иваня · Регистрация: 19.01.2012

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

для матрицы из 7 строк и 3 столбцов отпечатать номер каждой строки , вв которой значение ее наибольшего элемента оказалось больше заданной величины ,и число таких элементов.помогите пожалуйста, просто сдавать срочно надо а сделать ее ни как не могу

@Фаер · 24.01.2012, 17:18

Pascal

Program Mat;
Uses crt;
Var A:array[1..7,1..3] of integer; kol,x,max,i,j,k:integer;
Begin
 
ClrScr; Randomize;
Write('x='); Readln(x);{ввод числа х}
For i:=1 to 7 do
For j:=1 to 3 do
Begin
A[i,j]:=Random(51);{генерируем произвольные значения элементов массива}
If A[i,j]>x then kol:=kol+1;{находим кол-во эл. больших, чем х}
k:=k+1;
Write(A[i,j]:4);
If k mod 3=0 then Writeln;
End;
i:=0;
Writeln('Nomera strok:');
Repeat
i:=i+1; max:=0;
For j:=1 to 3 do
Begin
If A[i,j]>max then max:=A[i,j];{находим наибольшие элементы строк}
End;
If max>x then Writeln(i);{номера строк}
Until i=7;
 
Write('kol-vo:',kol);
Readln;
End.

@Иваня 1 / 1 / 1 Регистрация: 19.01.2012 Сообщений: 16
		1
	Отпечатать номер каждой строки, в которой значение ее наибольшего элемента оказалось больше заданной величины 24.01.2012, 16:25. Показов 1430. Ответов 1 Метки нет (Все метки) для матрицы из 7 строк и 3 столбцов отпечатать номер каждой строки , вв которой значение ее наибольшего элемента оказалось больше заданной величины ,и число таких элементов.помогите пожалуйста, просто сдавать срочно надо а сделать ее ни как не могу 0

	24.01.2012, 17:18

Отпечатать номер каждой строки, в которой значение ее наибольшего элемента оказалось больше заданной величины

Решение