2. Дан одномерный массив целых чисел. Подсчитайте, сколько раз в нем встречается число 1Массив от 1..10) язык-паскаль

1. Массив из рандомных цифр

var a:array [1..10] of integer;

k,i: integer;

begin

 randomize;

 for i:=1 to 10 do

   a[i]:=random(10);

 for i:=1 to 10 do

   if a[i]=1 then

     k+=1;

 write(k);

end.

2. Массив задаётся с клавиатуры

var a:array [1..10] of integer;

k,i: integer;

begin

 for i:=1 to 10 do

   Readln(a[i]);

 for i:=1 to 10 do

   if a[i]=1 then

     k+=1;

 write(k);

end.

Объяснение: