Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Alunni
Language: PASCAL
Code:
program scuola;
type vettnom = array[1..100] of string[40];
vettclass = array[1..100] of integer;
vetteta= array[1..100]
var
  i,n    : integer;
vettorenome :vettnom;
vettoreclasse: vettclass;
vettoreeta:vetteta
begin
  writeln ('inseri stud');
readln (n);
for i:=1 to n do
begin
Writeln ('inserisci nomi');
readln (vettorenome[i]);
     end;
for i:=1
begin
writeln ('inseri class')
realdn (vettoreclasse[i]);
end;
for i:=1 to n do
writeln ('inseri eta');
realdn (vettoreeta[i]);
end;
conta:=0;
for i:=1 to n do
begin ;
if vettoreeta[i] > 15 then
conta = conta + 1;
end;
writeln ('gli alunni magg di 15 sono') , conta);
readln;
end;
Comments: