Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
alexcrow
1 / 1 / 1
Регистрация: 05.07.2012
Сообщений: 29
#1

Найти среднее арифметическое наибольшего и наименьшего значений элементов матрицы - Turbo Pascal

08.07.2012, 21:16. Просмотров 800. Ответов 1
Метки нет (Все метки)

Дана действительная матрица a 6*9 . Найти среднее арифметическое наибольшего и наименьшего значений ее элементов.
http://www.cyberforum.ru/turbo-pascal/thread328035.html
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Program mas;
const
  n=6;
  m=9;
var
  a: array[1..n,1..m] of integer;
  i,j,min,max: integer;
begin
  randomize;
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  min:=a[1,1]; max:=a[1,1];
  for i:=1 to n do
    for j:=1 to m do
      begin
        if a[i,j]>max then max:=a[i,j];
        if a[i,j]<min then min:=a[i,j];
      end;
  
  writeln('Максимальное значение массива: ',max);
  writeln('Минимальное значение массива: ',min);
  writeln
('Среднее максимального и минимального:',(min+max)/2:5:2);
  readln;
end.
как обойтись без randomize и random??
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.07.2012, 21:16
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти среднее арифметическое наибольшего и наименьшего значений элементов матрицы (Turbo Pascal):

Среднее арифметическое наибольшего и наименьшего значений элементов матрицы ниже главной диагонали
Пусть дана вещественная матрица размером n*m. Найдите среднее арифметическое...

Действительная матрица. Найти среднее арифметическое наибольшего и наименьшего значений ее элементов
Дана действительная матрица размера 6x9.Найдите среднее арифметическое...

Найти среднее арифметическое наибольшего и наименьшего значения элементов матрицы.
Извените за название, просто в данный момент у меня экзамен :( Задание: дана...

Найти среднее арифметическое ее наименьшего и наибольшего элементов
Помогите решить задачки,пожалуйста!!! 1)Дана матрица размером m*n.Найти...

Найти среднее арифметическое наибольшего и наименьшего элементов массива
Огромная просьба помочь 1) Дан массив B из n элементов (n&lt;40). Найти среднее...

1
КонецСвета
Почетный модератор
7928 / 3899 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
08.07.2012, 21:25 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
uses crt;
const n=6; m=9;
var
  a: array[1..n,1..m] of integer;
  i,j,min,max: integer;
begin
writeln('');
for i:=1 to n do
    for j:=1 to m do
        begin
        write('a[',i,',',j,']='); readln(a[i,j]);
        end;
clrscr;
  min:=a[1,1]; max:=a[1,1];
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      begin
      write(a[i,j]:4);
      if a[i,j]>max then max:=a[i,j];
      if a[i,j]<min then min:=a[i,j];
      end;
    writeln;
  end;
  writeln;
  writeln('Максимальное значение массива: ',max);
  writeln('Минимальное значение массива: ',min);
  writeln
('Среднее максимального и минимального:',(min+max)/2:5:2);
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.07.2012, 21:25
Привет! Вот еще темы с решениями:

Найти разность наибольшего и наименьшего элементов матрицы
Дана матрица А(6,6) действительных чисел. Найти разность наибольшего и...

Найти среднее арифметическое элементов массива и разделить его на номер наибольшего элемента
1)В одномерном массиве из N элементов найти среднее арифметическое и разделить...

Найти среднее арифметическое элементов массива и разделить его на номер наибольшего элемента
1) В одномерном массиве из N элементов, найти среднее арифметическое и...

Найти среднее арифметическое и среднее геометрическое положительных элементов матрицы
Найти среднее арифметическое и среднее геометрическое положительных элементов...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru