SGAPRO S SGAPRO Регистрация 13 Июн 2013 Сообщения 71 Репутация 0 Спасибо 0 Монет 0 11 Ноя 2016 #1 Дан одномерный массив (50 элементов) случайных чисел в диапазоне от 10 до 50. Найти и вывести номер и значение максимального элемента, номер и значение минимального элемента, среднее арифметическое всех чисел стоящих на четным местах. PascalABC
Дан одномерный массив (50 элементов) случайных чисел в диапазоне от 10 до 50. Найти и вывести номер и значение максимального элемента, номер и значение минимального элемента, среднее арифметическое всех чисел стоящих на четным местах. PascalABC
Петрп П Петрп Регистрация 12 Янв 2013 Сообщения 77 Репутация 0 Спасибо 0 Монет 0 11 Ноя 2016 #2 for i:=1 to 50 do begin a:=random(61)+10; write(a,) end; writeln; вот массив, остальное сам Позитивный голос 0