Предмет: Информатика,
автор: dhegydh
Составьте программу которая заполняет массив А[1: 10] случайными целыми числами в диапазоне от 1 до 100 Определите если в массиве элемент равный 5 ответ в виде слов 《да》 или 《нет》
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Русский язык,
автор: imameliyevyusif110
Предмет: Геометрия,
автор: Shinorisan
Предмет: Русский язык,
автор: sophishatalova
Предмет: Литература,
автор: викуля158