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.