Составьте программу которая заполняет массив а[1: - вопрос №9596580110 от akotkina1 06.08.2022 14:52

Question

Информатика: Составьте программу которая заполняет массив а[1: 10] случайными целыми числами в диапазоне от 1 до 100 определите если в массиве элемент равный 5 ответ в виде слов 《да》 или 《нет》

akotkina1 · Answer

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.