program ciao;
uses crt, printer;
var
z:char;
n,i,s:integer;
a:array[1..100]of integer;
m:real;
begin
clrscr;
writeln;
writeln(inserisci il numero degli alunni che hanno fatto la verifica');
readln(n);
writeln('insrisci un voto');
readln(i);
for i:=1 to i<=n do
begin
writeln(a);
end;
begin
s:s+a;
m:=s/n;
writeln('la media č:',m);
end;
if (z:='y') or (z:='Y') then
begin
writeln('vuoi mandare in stampa?');
readln(z,lst);
end;
if (z:='y') or (z:='Y') then
begin
writeln('vuoi stampare il valore della media?');
readln(z,lst,m);
end;
readln;
end.
quali sono gli errori che ho fatto?
Ultima modifica effettuata da rolla il 09/07/2008 alle 21:41 |