Предмет: Информатика,
автор: polakovvartem56789
Дан массив из 15 случайных чисел от 50 до 100. Найти количество элементов, равных заданному числу с, введенному с клавиатуры. Если таких элементов в массиве нет, то вывести сообщение об этом. Помогите срочно дам 30 баллов!!!
ПАСКАЛЬ
Аноним:
какой язык программирования?
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Русский язык,
автор: дин64
Предмет: Английский язык,
автор: kari0105
Предмет: Українська мова,
автор: 90288
Предмет: Математика,
автор: kuku3593
Предмет: Литература,
автор: belo4kaKyKy