Question

PASCAL - Tablica N-elementowa liczbowa. Napisz program, który wyznaczy ile liczb należy do przedziału [a,b].
W prosty sposób.

Answer 1

program liczby_w_przedziale;

const

 N = 10;

var

 a, b, licznik: integer;

 tablica: array[1..N] of integer;

begin

 {inicjalizacja tablicy}

 tablica[1] := 1;

 tablica[2] := 2;

 tablica[3] := 3;

 tablica[4] := 4;

 tablica[5] := 5;

 tablica[6] := 6;

 tablica[7] := 7;

 tablica[8] := 8;

 tablica[9] := 9;

 tablica[10] := 10;

 {wczytanie wartości a i b}

 write('Podaj a: ');

 readln(a);

 write('Podaj b: ');

 readln(b);

 {inicjalizacja licznika}

 licznik := 0;

 {iteracja po tablicy i zliczanie liczb w przedziale}

 for i := 1 to N do

   if (tablica[i] >= a) and (tablica[i] <= b) then

     inc(licznik);

 {wypisanie wyniku}

 writeln('Liczba liczb w przedziale [a,b]: ', licznik);

end.

Answer 2

Odpowiedź

Kod źródłowy i wyniki uruchomienia podałam w załączniku

Wyjaśnienie

Przykładowe wyniki uzyskałam na platformie OnlineGDB..

Miało być prosto zatem wszystkie wielkości są zdefiniowane w programie, a nie czytane podczas wykonania.