Pascal - Konsolowe

Iloczyn przekątnej tablicy

Iloczyn przekątnej tablicy
Pascal - Konsolowe

Program: wyliczający iloczyn przekątnej tablicy dwuwymiarowej.

Użytkownik wprowadza dane do tablicy 3 na 3 a następnie wyliczana jest długość przekątnej.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program zad2;
uses crt;
var
   tab : array[1..3,1..3] of integer;
   i,k,iloczyn : integer;
begin
     clrscr;
     for i:=1 to 3 do
         begin
              for k:=1 to 3 do
                  begin
                       Writeln('Wprowadź element [',i,',',k,']: ');
                       Read(tab[i,k]);
                  end;
         end;
     writeln;
     for i:=1 to 3 do
        begin
             for k:=1 to 3 do Write(tab[i,k],' ');
             writeln;
        end;
        writeln;
        iloczyn:=1;
        for i:=1 to 3 do iloczyn:=iloczyn*tab[i,i];
        Write('Iloczyn głównej przekątnej tej tablicy wynosi: ',iloczyn);
        readkey;
end.