Сформировать массив из 15 случайных чисел, принадлежащих промежутку [-30, 30]. найдите и выведите на экран номера, значения и количество элементов, по модулю не превышающих 5. если таких элементов нет, то вывести соответствующее сообщение.

112

447

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

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

yanshin4961

Информатика

4,6(29 оценок)

Const sz = 100; // размер массива var b,a: array [1..sz] of integer; n: integer; // количество элементов в массиве k, i: integer; begin k: =0; n : = 20; writeln ('chisla'); for i: =1 to n do begin a[i] : = random(60)-30; write (a[i],' '); end; writeln; writeln (''); for i: =1 to n do begin if ((a[i]< =5) and (a[i]> 0)) then begin k: =k+1; write (i,' '); end; end; if (k=0) then write('no'); end.