Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите!!!!!! Очень Срочно!!!!!!!!
Дан одномерный массив целых чисел. Найдите, сколько раз в нем повторяется число K.Заполните случайным образом.

Ответ оставил Гость

Var
a: array [1..10] of integer;
i, k, s: integer;
begin
write(K = );
readln(k);
for i:=1 to 10 do
begin
a[i]:=random(11);
writeln(a[, i, ] = , a[i]);
if a[i]=k then s+=1;
end;
write(k, повторяется , s, раз)
end.