Free Pascal

[ilov3 106]

mam taki kod programu, jest on niedokończony.

program tablica;

var
        Liczby : array [1..20] of Byte;
        N,i : Byte;
        IleZnalezionych : Byte;

begin
        randomize;

for i:=1 to 20 do
   Liczby[1]:= Random(20)+1;

write('Podaj liczbe od 1 do 20: '); readln(N);

while((N<1)or(N>20)) do
   begin
    write('Zła wartość. Podaj liczbe z zakresu 1 do 20: '); readln(N);
   end;

  IleZnalezionych :=0;

  writeln; write('Tablica: ');

  for i:=1 to 20 do
    begin
      if Liczby[i]=N then
      IleZnalezionych:=IleZnalezionych+1;

    end;

    write(IleZnalezionych);



readln;
end.

w programie z tego co wiem muszę dodać jeszcze raz

if

bo nie wyrzuca mi żadnych liczb.

pomoże ktoś?

 

 

 

--------------------------------------------------------------------------------------------------------------------------------------------

 

 

dobra dałem radę

jeśli ktoś potrzebuje to wrzucam tutaj.

 

 

program tablica;

var
        Liczby : array [1..20] of Byte;
        N,i : Byte;
        IleZnalezionych : Byte;

begin
 randomize;
 for i:= 1 to 20 do
   Liczby [i]:= Random (20) + 1;

 write ('Podaj liczbe od 1 do 20: '); readln(N);
 while ((N<1) or (N>20)) do
begin
 write ('Zła wartość. Podaj liczbe z zakresu 1 do 20: '); readln(N);
   end;

  IleZnalezionych :=0;
  writeln; write ('Tablica: ');
  for i:= 1 to 20 do
begin
  write (Liczby [i], ' ');
  if Liczby[i]= N then
    IleZnalezionych:=IleZnalezionych + 1;
  end;
  Writeln;

  if IleZnalezionych= 0 then
    Writeln ('Liczby ', N, ' w tablicy odnaleziono.')
  else
    Writeln ('Liczby ', N, ' w tablicy odnaleziono ',
            IleZnalezionych, ' razy.');


readln;
end.

Edytowane 29 Kwietnia 2014 przez ilov3