Pascal2007.MyForum.ro

LoveKey · Trimis: 27/02/2007 20:47 Titlul subiectului: Varianta 9

III - 1

program pascal;
type matrice=array[1..20,1..20] of integer;
var a:matrice;
i,j,n:integer;
function matdiag(n:integer; Var a:matrice):integer;
var k,i,j,s:integer;

begin
k:=1;
for i:=1 to n do begin
s:=0;
for j:=1 to n do
s:=s+a[i,j];
s:=s-a[i,i];
if a[i,i] < s then k:=0;
end;
matdiag:=k;
end;

begin
readln(n);
for i:=1 to n do
for j:=1 to n do begin
write('a[',i,',',j,'] : ');readln(a[i,j]);
end;
writeln(matdiag(n,a));
end.
_________________
Orice e posibil prin vointa!

LoveKey · Trimis: 27/02/2007 20:50 Titlul subiectului:

III - 2

program subtreidoi;
Var s:string;
i,k:integer;
begin
write('Scrieti cuvantul:');readln(s);
k:=0;
for i:=1 to length(s) do { aici parcurge stringul de la prima la ultima pozitie}
if s[i] in ['a','e','i','o','u'] then {daca vreuna este in multimea asta adica e vocala..}
k:=k+1; {atunci k se mareste cu unu}
if length(s)-k=k then write('Da') { daca k este jumateate din numarul de litere a }
else write('Nu'); { stringului atunci scrie 'Da' daca nu scrie 'Nu'}
end.
_________________
Orice e posibil prin vointa!