Написать программу, которая находит максимальное значение и умножает его на минимальное значение

@Stefka · Регистрация: 24.05.2016

Author24 — интернет-сервис помощи студентам

Дан двумерный массив, размером n*m. Написать программу, которая находит максимальное значение и умножает его на минимальное значение.

@shilko2013 · 25.05.2016, 11:18

Pascal

const n=30,m=20;
var a:array [1..n,1..m] of integer;
i,j,min,max:integer;
BEGIN
max:=-1000;
min:=MaxInt;
For i:=1 to n do  //заполнение матрицы
  For j:=1 to m do
  a[i,j]:=Random (100);
For i:=1 to n do  //поиск мах и мин
  For j:=1 to m do begin
  IF a[i,j]<min THEN min:=a[i,j];
  IF a[i,j] >max THEN max:=a[i,j];
  end;
Writeln (min*max);
END.

@Stefka 0 / 0 / 0 Регистрация: 24.05.2016 Сообщений: 5
		1
	Написать программу, которая находит максимальное значение и умножает его на минимальное значение 24.05.2016, 11:01. Показов 4860. Ответов 1 Метки нет (Все метки) Дан двумерный массив, размером n*m. Написать программу, которая находит максимальное значение и умножает его на минимальное значение. 0

	25.05.2016, 11:18

Написать программу, которая находит максимальное значение и умножает его на минимальное значение

Решение