информатикадан есеп

Question

Екіөлшемді А(7,7) массивнда бас диагоналдағы элементтерді әрбір жолдың ең үлкен мәнімен алмастыр.

Answer 1

негізінде бұндай есеп шығару универлерде екі жүз теңгеден жоғары тұрады........

 

program massiv;

var a:array [1..7,1..7] of integer;

i,j,s:integer;

begin

writeln('Massivti engiz');

for i:=1 to 7 do

for j:=1 to 7 do

begin

readln ( a [ i , j ]);

end;

for i:=1 to 7 do

begin

s:=a[i,1];

for j:=1 to 7 do

if  (a[i,j]>s) then  s:=a[i,j];

 

a[j,j]:=s;

end;

for i:=1 to 7 do

begin

for j:=1 to 7 do

write(a[i,j]:3);

writeln;

end;

end.

 

 

Comments

Хе-хе-хе! Ризамын Жантуған сізге. Ия сол дұрыс айтасыз, бірақ бізге исключение шығар. 

Admin 16.05.2011 пікір

Answer 2

Кешіріңдер..... есеп шығарғанда бір сөзді оқымай кетіппін.... содан есептің мағынасы өзгеріп кеткен демек қате........ дұрыстап қойдым.....

Answer 3

Y={торт икс квадрат бырге алынган 15 егер икс 10нан дау немесе тен. Кейн астына болшексыз екi икс куб бырге Егер х