Question

Дан массив из 15 случайных чисел от 50 до 100. Найти количество элементов, равных заданному числу с, введенному с клавиатуры. Если таких элементов в массиве нет, то вывести сообщение об этом. Помогите срочно дам 30 баллов!!!
ПАСКАЛЬ

Answer 1

Ответ:

program kek;

var

a: array [1..15] of integer;

i,b,c: integer;

begin

c := 0;

randomize;

write('Введите число: ');

readln(b);

for i:=1 to 15 do

begin

a[i]:=random(50)+50;

//writeln( a[i],' '); //Можешь вывести массив и убедится в работоспособности программы

if b=a[i] then

 c := c+1;

end;

if c=0 then writeln('Таких элементов в массиве нет')

else writeln('Совпадений: ',c);

end.