Составьте программу которая заполняет массив а[1: 10] случайными целыми числами в диапазоне от 1 до 100 определите если в массиве элемент равный 5 ответ в виде слов 《да》 или 《нет》
alina2015a
3
02.10.2019 22:20
0
Другие вопросы по теме Информатика
olya363
25.12.2020 12:12
Nikitunnik
25.12.2020 12:13
Angelinaburgano
15.02.2021 10:31
DedSToporom
15.02.2021 10:31
kogoch
15.02.2021 10:26
леньчайник
06.11.2019 17:01
ПолинаАпгрейт
13.10.2021 12:05
lololo20021
13.10.2021 11:25
VIRUS00000
13.10.2021 11:09
Популярные вопросы
- Өсімдіктер дің табиғаттары рөлі қандай?...
1 - Краткое сочинение о завоевании индейцев майа...
1 - Проанализируйте записи чисел от 2 до 20 римскими цифрами...
2 - Летературное чтение 4класс ст 12 14...
3 - Разложить многочлен на множители. 9-n²+a²-6a...
3 - Построить предложения по схемам 1)0, а не 0; 2)и 0, и 0, и 0; 3)не то что 0,а...
3 - Поясни как гипотезы и научные споры ученых развитию науки...
2 - Проверку на эти примеры 106+294+530=930 472+280+194=950 620+137+209=966...
1 - Значение и содержания понятий этика, мораль в научной ? сообщение...
1 - 16,1/25,3=х/16,5 найти неизвестный член пропорции...
3
var
a:array[0..9] of byte;
k:byte;
f:boolean;
begin
randomize;
for k:=0 to 9 do begin
a[k]:= random(99)+1;
if(a[k]=5) then f:=true;
end;
if(f)then writeln('Да')
else writeln('Нет');
end.