Придумать программу которая в массиве случайных чисел находит число равное 10. если такого числа не существует, то на экране должна появиться запись "такого числа не существует".

114

473

Посмотреть ответы 2

Ответы на вопрос:

cat0708200416

Информатика

4,4(55 оценок)

Program arrs; type arr = array of byte; var i, n, t : byte; a : arr; begin write('введите размер массива : '); readln(n); setlength(a, n); randomize; for i: =0 to n-1 do begin a[i]: =random(100); write(a[i], ' '); end; writeln; t: =-1; for i: =0 to n-1 do begin t: =a[i]; if t=10 then writeln('найден элемент равный 10 в ячейке ', i); end; if t=-1 then writeln('элемент равный 10 в массе не найден! '); end.