Дана матрица размером 6x9. Найти среднее арифметическое наибольшего и наименьшегозначений ее элементов. TURBO PASCAL
5-9 класс
|
const
N = 6;
M = 9;
var
mas:array[1..N,1..M] of integer;
max,min,j,i:integer;
begin
max:=-maxint;
min:=maxint;
for i:=1 to N do
for j:=1 to M do
begin
if max<mas[i,j] then
max:=mas[i,j];
if min>mas[i,j] then
min:=mas[i,j];
end;
writeln((max+min)/2);
end.
Другие вопросы из категории
1) 1 прибор для записи и воспроизведения звука.
Помогите пожалуйста!!!!
которая задает вопрос: «В каком году был основан город Минск?» (например, в
1067 г., в 993 г. или в 1147 г.). В случае верного ответа программа должна
сообщить «Верно», в противном случае «Вы ошиблись».
Читайте также
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
Задание 1. Составить программу для вычисления по формуле:
Y = √|2x² - 7x| + 12
Задание 2.
Составить программу для вычисления значения функции:
Задание 3. Дано натуральное N. Вычислить: S=2*4*6*...*2N.
Задание 4. Дан массив А(20), заполненный датчиком случайных числе. Найти среднее арифметическое всех элементов массива.
Задание 5. дана матрица А(10,10), заполненная датчиком случайных чисел. Найти сумму значений всех элементов данной матрицы.
оно(средн. числ.) больше,то вывести фразу "yes", если нет то "no"..