Массив матрицалар есеп паскальда? [жабық]

Question

Көрермендер залында 25 қатар, әрбір қатарында 36 орын бар. Сатылған билеттер жөнінде мәлімет екі өлшемді массивте сақталған. Қатардың номері массив қатарының номерімен сәйкес келеді, Егер билет сатылған болса, онда ол орын 1 мәнін қабылдайды, әйтпесе 0 мәнін қабылдайды. 12 қатардағы сатылған билеттің санын есептейтін программа құру керек бауырлар...! Көмек бере аласыздар ма???  Алла разы болсын..!!

Answer 1

var i,j,a,cn:integer;
begin
for i:=1 to 25 do
for j:=1 to 36 do
begin
read(a);
if i=12 then
 if a=1 then inc(cn);
end;
writeln(cn);
end.
шыны керек, мен сіздерді түсінбеймін...
паскаль ғой, С++ немесе Java емес қиын дейтіндей...

Comments

мынау шықпай жатыр, сондада Рахмет , АЛЛА РАЗЫ БОЛСЫН.. екі өлшемді массивте керек еді есеп.

BakDaulet_[Off.PaGe] 4.06.2012 пікір

---

ой, ұмытып кетіппін, cn:=0 жазып жіберіңіз ең баста

UPi 4.06.2012 пікір

---

var a:array[1..25,1..36] of integer;
i,j,k:integer;
Begin
for i:=1 to 25 do
for j:=1 to 36 do
read(a[i,j]);

k:=0;
for j:=1 to 36 do
if a[12,j]=1 then k:=k+1;

writeln('k=',k);
End.

Жантуған 24.06.2012 пікір

---

Сандарды енгізіп отыра бередіғой мынау Жантуған!!! Рахмет сондада көмегіңе Аллах разы болсын..!!

BakDaulet_[Off.PaGe] 24.06.2012 пікір

---

енді өзің ойла матрица 25 жол мен 36 бағаннан тұрады, енді есептейік 25*36=900 сан енгізу керек
сен санды азайт саған былай жазып берейін
const n=25; m=36; l=12;
var a:array[1..n,1..m] of integer;
i,j,k:integer;
Begin
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);

k:=0;
for j:=1 to m do
if a[l,j]=1 then k:=k+1;

writeln('k=',k);
End.

сонда былай n -ол матрица жолы
m-матрица бағаны
l- ізделуші жол номері
менды мейлінше азайтып жасап көр

Жантуған 26.06.2012 пікір

---

Рахмет бауырым!!!

BakDaulet_[Off.PaGe] 8.07.2012 пікір