Question

AMBELE PROBLEME LA EX 4 IN PASCAL. CINE REZOLVA CHIAR ACUM PRIMESTE CEL MAI BUN RASPUNS + II MAI DAU NISTE PUNCTE. URGEEEEENT PLS PASCAL

(LA PRIMA FOAIE EX 4 VA ROG DOAR A 2-A PROPOZITIE, DOAR CITEVA LINII NU STIU, TABELUL NU-MI TREBUIE)

Answer 1

Foaia 1 Ex4
PS: Linia x ( se are invedere diagonala tabloului bidimensional );

Program Ex4;
var i,s,j,n,m:integer;max:real;
x:array[1..100,1..100] of real;
begin
readln(n,m);
for i:=1 to n do begin
for j:=1 to m do begin
Writeln('x[',i,',',j,']=');readln(x[i,j);
if x[i,j]=0 then s:=s+1;
max:=x[1,1];
if i=f then
if x[i,j]>max then max:=x[i,j];
end;
end;
Writeln('Elemente nume=',s);
Writeln('Maximul de pe linia "x" =',max:2:4);
readln;
end.

Foaia 2 Ex4

Program Ex4;
var s:string; suma,i:integer;
begin
Writeln('Dati sirul de caractere');
readln(s);
for i:=1 to length(s) do
begin
if (s[i]='a') or (s[i]='b') then suma:=suma+1;
end;
Writeln('In sir sunt ',suma,' litere de a si b');
readln;
end.