Program: wyszukujący i wskazujący 0 wśród wprowadzonych elementów.
Tablica elementów jest z góry zdefiniowana na 8 pozycji. Użytkownik podaje wszystkie z nich, po czym program wyszukuje element/elementy zerowy/zerowe (jeśli takie istnieją).
Kompilator: Turbo Pascal
Galeria:
Kod programu:
program pozycjeelementow;
uses crt;
var
zero:boolean;
i:integer;
tablica: array[1..8] of integer;
{---------------------------------------------------------------------------}
procedure czytaj;
var x,z: integer;
begin
for z:=1 to 8 do
begin
writeln('Podaj element tablicy nr. ',z);
read(tablica[z]);
end;
end;
{---------------------------------------------------------------------------}
begin
clrscr;
czytaj;
zero:=FALSE;
for i:=1 to 8 do
if tablica[i]=0 then zero:=TRUE;
if zero then
begin
write('Element zerowy znajduje sie na pozycji: ');
for i:=1 to 8 do
if tablica[i]=0 then
write(i,' ');
end
else
write('Brak elementu zerowego.');
readkey;
end.
readkey;
end.