Question

PASCAL - Tablica N-elementowa liczbowa. Program ma wyznaczyć ile liczb jest podzielnych przez 5.

Answer 1

Odpowiedź:

program PodzielnePrzez5;

const

  n = 10;

var

  i, licznik: Integer;

  tablica: array[1..n] of Integer;

begin

 licznik := 0;

 for i := 1 to n do

 begin

    read(tablica[i]);

    if tablica[i] mod 5 = 0 then

       licznik := licznik + 1;

 end;

 writeln('Liczba liczb podzielnych przez 5 w tablicy: ', licznik);

end.