Скачать программы    Все программы автора

Задание № 32

Дана целочисленная таблица a[1..20]. Выяснить, каких элементов в таблице больше: равных 40 или равных 60.

program proverka;

var

a: array [1..20] ofinteger;

kl, k2, с: integer;

procedure kol (d: integer; var k: integer);

var

i: integer;

begin

k:=0;

for i :=1 to 20 do

if a[i] = d then k := k + 1;

end;

begin

writeln('Введите значения элементов массива');

for i := 1 to 20 do

readln( a[i] );

kol (40, kl);

kol (60,k2);

if (kl > k2) then writeln ('Больше элементов, равных 40')

else if kl < k2 then

writeln ('Больше элементов, равных 60')

else

writeln ('Одинаково');

end.