Напишите саму программу. дан массив из 10 случайных чисел из интервала от -10 до 10. вывести данный массив в строчку. найти: 1) кол-во положительных элементов. 2) кол-во отрицательных элементов. 3) минимальный элемент и его номер. 4) максимальный элемент и его номер. 5) среднее арифметическое максимального и минимального элементов. организовать вывод найденных величин с пояснением на языке.

283

490

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

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

nastalut207

Информатика

4,7(56 оценок)

Program n70231806_1; var a: array[ 1 .. 10 ] of shortint; i: byte; t: shortint; begin randomize; writeln('исходный массив: '); for i : = 1 to 10 do begin a[ i ] : = random(21) - 10; write(a[ i ]: 4) end; writeln; t : = a[ 10 ]; for i : = 10 downto 2 do a[ i ] : = a[ i - 1 ]; a[ 1 ] : = t; writeln('результат: '); for i : = 1 to 10 do write(a[ i ]: 4); readln end. 2) program n70231806_2; var a: array[ 1 .. 12 ] of shortint; i, j: byte; t: shortint; begin randomize; writeln('исходный массив: '); for i : = 1 to 12 do begin a[ i ] : = random(25) - 10; write(a[ i ]: 4) end; writeln; for j : = 1 to 4 do begin t : = a[ 12 ]; for i : = 12 downto 2 do a[ i ] : = a[ i - 1 ]; a[ 1 ] : = t end; writeln('результат: '); for i : = 1 to 12 do write(a[ i ]: 4); readln end.