alex0413
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
привет всем, помогите решить задачу, нужно на завтра, на контрольную.
вот условие
Дана цілочисельна прямокутна матриця, визначити:
1) кількість парних елементів в тих рядках, які містять хоча б один нульовий елемент;
2) номери рядків і стовбців всіх сідлових точок матриці
матриця має сідлову точку a[i,j], якщо a[i,j] є мінімальним елементам в і-му рядку і максимальнім в j-му стовбці.
я первое вроде-бы сделал, а вот второе никак не получается((((
Program kontr;
uses crt;
const n=3;
m=3;
var i,j,p,par,min,prom,prom2,max:integer;
A:array [1..n,1..m] of integer;
D:array [1..n,1..2] of integer;
X:array [1..m,1..2] of integer;
Begin
For i:=1 to n do
For j:=1 to n do
Begin
writeln('Введите елемент ',i,'-',j);
readln(A[i,j]);
End;
par:=0;
For i:=1 to n do
For j:=1 to m do
Begin
if A[i,j]=0 then
For p:=1 to m do
Begin
if A[i,p] mod 2=0 then
if A[i,p]<>0 then
par:=par+1;
if p=m then
writeln('Количество парных элементов в ',i,' строчке: ',par);
end;
par:=0;
end;
end. |
Всего записей: 139 | Зарегистр. 15-01-2011 | Отправлено: 22:12 18-12-2011 | Исправлено: alex0413, 22:20 18-12-2011 |
|
