السلام عليكم
غدوة نعدّي info ، بالله واحد يصلّحلي الخدمة هذي (حاشتي ببروڨرام يحسب عدد O و A في tableau)
هذي خدمتي
program trin;
uses wincrt;
type
tab=array[1..100]of integer;
var
t:tab;
n,s:integer;
i,j,f:integer;
procedure lecture(var n:integer);
begin
repeat
writeln('entrer valeur de n');
readln(n);
until (n>3);
end;
procedure remplir(var t:tab;n:integer);
begin
for i:=1to n do
begin
writeln('n');
readln(n);
end;
end;
procedure affiche (l:integer);
begin
writeln(l);
end;
function maj (t:tab;n:integer):integer;
var
w:integer;
begin
w:=0;
for i:=1to n do
begin
for j:=1 to length t do
begin
if upcase (t[j]) in ['A','O'] then
w:=w+1;
maj:=w;
end;
end;
end;
begin
lecture (n);
remplir(t,n):
maj(t,n);
f:=majus;
affiche(f);
end.
غدوة نعدّي info ، بالله واحد يصلّحلي الخدمة هذي (حاشتي ببروڨرام يحسب عدد O و A في tableau)
هذي خدمتي
program trin;
uses wincrt;
type
tab=array[1..100]of integer;
var
t:tab;
n,s:integer;
i,j,f:integer;
procedure lecture(var n:integer);
begin
repeat
writeln('entrer valeur de n');
readln(n);
until (n>3);
end;
procedure remplir(var t:tab;n:integer);
begin
for i:=1to n do
begin
writeln('n');
readln(n);
end;
end;
procedure affiche (l:integer);
begin
writeln(l);
end;
function maj (t:tab;n:integer):integer;
var
w:integer;
begin
w:=0;
for i:=1to n do
begin
for j:=1 to length t do
begin
if upcase (t[j]) in ['A','O'] then
w:=w+1;
maj:=w;
end;
end;
end;
begin
lecture (n);
remplir(t,n):
maj(t,n);
f:=majus;
affiche(f);
end.