Премини към съдържанието

Препоръчан отговор


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

Задачата е: Даден е двумерен масив от цели числа с 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]. И чак след това правиш цикъл, където се проверява дали елементите от даден ред са равни. В него трябва да зададеш условие, ако в даден ред елементите са равни, то на екрана да бъде изведен него ред, а ако няма ред с равни числа - да изкарва надпис, че такъв ред не съществува.

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

Сподели този отговор


Линк към този отговор
Сподели в други сайтове

Регистрирайте се или влезете в профила си за да коментирате

Трябва да имате регистрация за да може да коментирате това

Регистрирайте се

Създайте нова регистрация в нашия форум. Лесно е!

Нова регистрация

Вход

Имате регистрация? Влезте от тук.

Вход

×

Информация

Поставихме бисквитки на устройството ви за най-добро потребителско изживяване. Можете да промените настройките си за бисквитки, или в противен случай приемаме, че сте съгласни с нашите условия за ползване.