Új hozzászólás Aktív témák

• #868 berkine csendes tag Lali87 #863

  Új Válasz 2005-12-15 17:13:32 #868

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  berkine

  csendes tag

  válasz Lali87 #863 üzenetére

  hali!
  itt az átlós program. Igaz, hogy csak a főátló, de az is jobb,. mint a semmi. Remélem.
  ja igen ez a*a-s mátrix de a betük nem olyan fontosak
  
  
  program matrixatlo;
  uses crt;
  var a,i,j,k,minindex:integer;
  Type Mtomb=array[1..10,1..10] of integer;
  var x :Mtomb;
  z:array[1..10]of integer;
  
  begin
  clrscr;
  writeln('mekkora matrix?'); readln(a);
  
  For i:= 1 to a do
  for j:=1 to a do
  begin
  writeln('k‚rem az ',i,'. sor',j,'. elemet!');
  readln(x[i,j]);
  end;
  
  for i:=1 to a do
  begin
  for j:=1 to a do
  write(x[i,j]:10);
  writeln;
  end;
  
  for i:=1 to a do
  for j:=1 to a do
  if i=j then
  begin
  z:=x[i,j];
  writeln(z);
  end;
  minindex:=i;
  for i:= 1 to a do
  begin
  if z < z[minindex] then minindex:=i;
  end;
  writeln('az atlo legkisebb eleme:', z[minindex]);
  
  repeat
  until keypressed;
  end.

  [Szerkesztve]

Új hozzászólás Aktív témák