TribalTheory

program djani; var a:array[1..5,1..6] of real; b:array[1..30] of real; i,j,k:byte; begin k:=0; for i:=1 to 5 do for j:=1 to 6 do begin write('wawedete element a',i,',',j,'='); readln(a[i,j]); inc(k); b[k]:=a[i,j]; end; writeln('parvonachalnen masiv a'); for i:= 1 to 5 do begin for j:=1 to 6 do write(a[i,j]:10:2); writeln; end; writeln; writeln; writeln('parvonachalnen masiv b'); for i:=1 to 30 do writeln('b',i,'=',b:10:2); writeln; writeln('masiv sled intervenciq'); k:=0; for i:=1 to 30 do begin if i mod 2 <> 0 then begin k:=k+1; if k<6 then begin b:=0; end; end; end; for i:=1 to 30 do writeln('b',i,'=',b:10:2); writeln; writeln; readln; end. Masiv A[5,6] da se preobrazuva v ednomeren B... da se zanemqt 5 elementa ot masiv B s necheten indeks... da se otpe4atat masiv A, masiv B i masivyt sys zameneni elementi. Благодаря предварително!

Айде бе .. осрали са.. нема такова нещто.. благодарили на еди кой си .. ми аз как да им пиша че може да ма фатат .. както винаги си серат у крачола..