Esercizi in pascal

Materie:Appunti
Categoria:Informatica
Download:97
Data:25.05.2000
Numero di pagine:1
Formato di file:.txt (File di testo)
Download   Anteprima
esercizi-pascal_2.zip (Dimensione: 0.39 Kb)
trucheck.it_esercizi-in-pascal.txt     527 Bytes
readme.txt     59 Bytes


Testo

program verifica_presenza ;
var x,i :integer;
z :boolean;
a :array [1..10] of integer;
begin
i:=1;
z:=false;
write ('Inserisci il numero da ricercare, x= ');
readln(x);
writeln ('Inserisci la sequenza di numeri ');
for i:=1 to 10 do
begin
readln(a[i]);
if a[i]=x then z:=true;
end;
if z then writeln ('Il numero ',x,' Љ presente nella sequenza')
else writeln ('il numero ',x,' non Љ presente');
end.

Esempio