1.program sumowania dwóch tablic dwuwymiarowych
2.program mnozenia dwóch tablic
załączony program oblicza sume elementow powyľej gownej przekĄtnej
wiem ze wymaga małych poprawek aby zrobic te zadania ale nie mam wizji jak to zrobic, byłbym wdzieczny za pomoc;)
Kod: Zaznacz cały
program cw10_13;
{program wczytywania wierszami elementow tablicy dwuwymiarowejoraz jej drukowania}
uses crt;
label start;
const
maxW=20;
maxk=20;
var
odp: char;
suma:real;
i,j,k:integer;
n:integer; {rozmiar tablicy}
tablica:array[1..maxW,1..maxK] of real;
begin
start:
clrscr;
writeln('program oblicza sume sume elementow powyľej gownej przekĄtnej ');
writeln('podaj rozmiar tablicy: n n');
read(n,n);
write('podaj elementy tablicy wiersz po wierszu');
writeln;
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']= ');
read(tablica[i,j]);
end;
{ writeln('elementy wczytanej tablicy:');
for i:=1 to n do
begin
for j:=1 to m do
write(tablica[i,j]:3);
end;}
suma:=0;
for i:=1 to n do
for j:=1 to n do
if j>i then
suma:=suma+tablica[i,j];
writeln;
writeln;
writeln('suma ',suma:0:0);
writeln;
writeln('nowe obliczenia? (t/n)');
odp:=readkey;
if odp='t' then goto start;
end.