Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Как сделать цикличность https://www.cyberforum.ru/ turbo-pascal/ thread413542.html
Мне нужна программа на MidletPascal которая будет рандомом выводить на экран число,это я сделал,но у меня не получается сделать чтоб при нажатии кнопки RESTART появлялось новое число... вот код...
Turbo Pascal цикл и перменные? я негодуе...
1) найти положение свободно падающего в глубокий колодец камня через t секунд после начала падения. сопротивление воздуха не учитывать. величина т изменяется от А до В с шагом Н. формула пути при...
Дан линейный массив целых чисел ввести с клавиатуры не менее 10 элементов и посчитать сколько в нем различных чисел . Turbo Pascal
Дан линейный массив целых чисел ввести с клавиатуры не менее 10 элементов и посчитать сколько в нем различных чисел . Добавлено через 32 секунды помогите решить срочно пожалуйста
Turbo Pascal Задан линейный массив. Осуществить в нем сдвиги по следующим правилам: Расположить элементы в обратном порядке. Задан линейный массив. Осуществить в нем сдвиги по следующим правилам: Расположить элементы в обратном порядке. Прошу помощи, заранее спасибо! https://www.cyberforum.ru/ turbo-pascal/ thread413487.html
Turbo Pascal Что делают операторы inc в данной задаче? https://www.cyberforum.ru/ turbo-pascal/ thread413479.html
4. Дан одномерный массив из n целых чисел. Составить программу вычисления а) суммы элементов, стоящих на четных местах; б) суммы четных элементов; в) среднего арифметического четных элементов ...
Круговая диаграмма. Turbo Pascal
Здравствуйте. Необходимо нарисовать диаграмму,состоящую из 10 заполненных секторов,используя различные орнаменты и цвета заполнения. Помогите,пожалуйста. Добавлено через 57 минут Кто-нибудь...
Turbo Pascal Вывести день недели, по введенной дате (type, record)
Дано: type number = 1..31; month = 1..12; year = 1..2050; data = record n: number; m: month; y: year; end;
Turbo Pascal Составление циклических алгоритмо Определить y = {e}^{sin x} в пяти точках, если x = 0, 2, 4, ... Напечатать значение y при всех значениях x. https://www.cyberforum.ru/ turbo-pascal/ thread413465.html
Turbo Pascal строки. текстовые файлы. https://www.cyberforum.ru/ turbo-pascal/ thread413459.html
Первым элементом каждой строки текстового файла является число. Создать копию этого файла и найти сумму первых элементов всех строк.
Turbo Pascal Графика в турбо паскале Построение статического рисунка Многоэтажный дом https://www.cyberforum.ru/ turbo-pascal/ thread413446.html
2 / 2 / 1
Регистрация: 21.12.2011
Сообщений: 7
21.12.2011, 15:16 0

Определить максимальный и минимальный элемент матрицы

21.12.2011, 15:16. Просмотров 2952. Ответов 4
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение


Для первого:

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
36
37
38
39
40
41
program minmaxmatrix;
uses crt;
const n = 5;
    m = 3;
var matrix: array[1..n, 1..m] of integer;
    i, j, max, min: integer;
Begin
 
    ClrScr;
    randomize;
    
    max := 0;
    min := 15;
    
    for i:=1 to n do
    begin
        for j:=1 to m do
        begin
            matrix[i, j] := random(15);
            write(matrix[i, j]:5);
        end;
        writeln;
    end;
    
    for i:=1 to n do
    begin
        for j:=1 to m do
        begin
            if(max <= matrix[i, j]) then 
                max := matrix[i, j];
            
            if(min >= matrix[i, j]) then
                min := matrix[i, j];
        end;
    end;
    
    writeln('Максимальный элемент: ', max);
    writeln('Минимальный элемент: ', min);
    
    readln;
end.


Вернуться к обсуждению:
Определить максимальный и минимальный элемент матрицы
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.12.2011, 15:16
Готовые ответы и решения:

Определить минимальный элемент в каждом столбце матрицы и выбрать из них максимальный
Вывести на экран матрицу 10х8, элементами которой являются целые случайные числа из интервала ....

Определить минимальный элемент в каждом столбце матрицы и выбрать из них максимальный
Вывести на экран матрицу 5х3, элементами которой являются целые случайные числа из интервала...

Определить, что больше: максимальный элемент левой половины или минимальный элемент правой половины матрицы
Определить что больше максимальный элемент левой половины или минимальный элемент правой половины...

Найти средний элемент, минимальный элемент и максимальный элемент матрицы
Здравствуйте,помогите решить задачу. Задана двумерная матрица размерностью 12x12 элементов...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
4
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.