Предмет: Информатика,
автор: 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.
Интересные вопросы
Предмет: История,
автор: sinkevicstefan90
Предмет: Алгебра,
автор: segurajden
Предмет: Математика,
автор: haritonovaa407
Предмет: Математика,
автор: Galchonok1586