Здравейте колеги! Трябва ми помощ с курсовата ми задача на Паскал, тъй като често отсъствах от лекции и упражнения поради здравословни проблеми и не мога да наваксам с всичко.

Задачата е: Даден е двумерен масив от цели числа с m реда и n стълба. Да се намери номерът на първия ред, в който всички елементи са равни. Опитах да направя нещо, то естествено е пълно с грешки. Благодаря на всички предварително.

Program A1;
Type
Mas = Array [1..30, 1..40] of real;
Var M, N, i, j, c : integer;
A:Mas;
Begin
c:=0;
for i:=1 to M do
for j:=2 to N do begin
if (a[j]=a[1]) then c:=i;
end;
if c=i then break;
end;
writeln ('c');
End.
 

Започваш програмата с команди, чрез които се въвежда броят на редовете и стълбовете, продължаваш с цикъл за въвеждане на отделните елементи от масива - A[i,j]. И чак след това правиш цикъл, където се проверява дали елементите от даден ред са равни. В него трябва да зададеш условие, ако в даден ред елементите са равни, то на екрана да бъде изведен него ред, а ако няма ред с равни числа - да изкарва надпис, че такъв ред не съществува.

Редактирано 30 ноември 20178 г. от Excelsior (преглед на промените)