program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
type vm = array[1..5,1..5] of real;
var m: real;
ex,o,p,n1,n2,n3,n4:integer;
media, exame: vm;
Procedure inserenotas (a,b,c,d: integer);
var contr ,i,j:integer;
begin
m := (n1+n2+n3+n4)/4;
for i:=contr to contr do
for j := contr to contr do
media[i,j] := contr+1;
end;
function examera(x:integer):integer;
var i,z,j:integer;
begin
z := 1;
for i := z to z do
for j:= z to z do
begin
exame[i,j] := x;
z:= z+1;
end;
examera:=x;
end;
begin
writeln('inf. as notas atuais');
readln(n1,n2,n3,n4);
inserenotas(n1,n2,n3,n4);
if (m>70) then
writeln('aprovado')
else
if((m>=40) or (m<70)) then
writeln('inf. a nota do exame');
readln(ex);
examera(ex);
if((m>=40) or(m<70)) then
begin
writeln('inf. a posição da nota');
readln(o,p);
if((exame[o,p]<60)) then
writeln('reprovado no exame !')
else
writeln('Aprovado no exame');
end;
readln;
end.
me ajudem a concerta isso ai
e pra hj
meu deus eu to frito
olha o enunciado
igor_ ks ja concertei o que vc falou vlw olha ai agora
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
type vm = array[1..5,1..5] of real;
var m: real;
ex,o,p,n1,n2,n3,n4:integer;
media, exame: vm;
Procedure inserenotas (a,b,c,d: integer);
var contr ,i,j:integer;
begin
m := (n1+n2+n3+n4)/4;
for i:=contr to contr do
for j := contr to contr do
media[i,j] := contr+1;
end;
function examera(x:integer):integer;
var i,z,j:integer;
begin
z := 1;
for i := z to z do
for j:= z to z do
begin
exame[i,j] := x;
z:= z+1;
end;
examera:=x;
end;
begin
writeln('inf. as notas atuais');
readln(n1,n2,n3,n4);
inserenotas(n1,n2,n3,n4);
if (m>70) then
writeln('aprovado')
else
if((m>=40) or (m<70)) then
writeln('inf. a nota do exame');
readln(ex);
examera(ex);
if((m>=40) or(m<70)) then
begin
writeln('inf. a posição da nota');
readln(o,p);
if((exame[o,p]<60)) then
writeln('reprovado no exame !')
else
writeln('Aprovado no exame');
end;
readln;
end.