👤
a fost răspuns

Exercitiul 2 (scrieti va rog un program in pascal) Dau coroana celui ce face corect in pascal!!!

Exercitiul 2 Scrieti Va Rog Un Program In Pascal Dau Coroana Celui Ce Face Corect In Pascal class=

Răspuns :


var a:array[1..20,1..20] of integer; n,i,j,s:integer;

begin

  readln(n);

for i:=1 to n do

  for j=1 to n do

          begin

              readln(a[i,j]);

             if i=j then  s:=s+a[i,j]*a[i,j];

        end;

 writeln(s);

end.


Vă mulțumim că ați ales să vizitați site-ul nostru dedicat Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți alte întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați în lista de favorite!


Ze Teaching: Alte intrebari