Форум программистов, компьютерный форум, киберфорум
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
Почетный модератор
7954 / 3925 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
21.12.2011, 15:10 0

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

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

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

Решение


Цитата Сообщение от Gupi Посмотреть сообщение
9. Дана матрица целых чисел размером 5x3. Определить максимальный и
минимальный элемент матрицы. Результат вывести на экран монитора.
как один из вариантов
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
uses crt;
var a: array [1..5,1..3] of integer;
    i,j,min,max: integer;
begin
writeln('Äàí ìàññèâ');
for i:=1 to 5 do
    begin
    for j:=1 to 3 do
        begin
        a[i,j]:=random(201)-100;
        write(a[i,j]:5);
        end;
    writeln;
    end;
max:=a[1,1];
min:=a[1,1];
for i:=1 to 5 do
    for j:=1 to 3 do
        begin
        if a[i,j]>max then max:=a[i,j];
        if a[i,j]<min then min:=a[i,j];
        end;
writeln('Íàèìåíüøèé ýëåìåíò = ',min);
writeln('íàèáîëüøèé ýëåìåíò = ',max);
readkey
end.
или так, с одним циклом
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
uses crt;
var a: array [1..5,1..3] of integer;
    i,j,imin,jmin,imax,jmax: integer;
begin
writeln('Äàí ìàññèâ');
imin:=1;jmin:=1; imax:=1; jmax:=1;
for i:=1 to 5 do
    begin
    for j:=1 to 3 do
        begin
        a[i,j]:=random(201)-100;
        write(a[i,j]:5);
        if a[i,j]>a[imax,jmax] then
           begin
           imax:=i;
           jmax:=j;
           end;
        if a[i,j]<a[imin,jmin] then
           begin
           imin:=i;
           jmin:=j;
           end;
        end;
    writeln;
    end;
writeln('Íàèìåíüøèé ýëåìåíò = ',a[imin,jmin]:5,' â ñòðîêå ',imin,', â ñòîëáöå ',jmin);
writeln('Íàèáîëüøèé ýëåìåíò = ',a[imax,jmax]:5,' â ñòðîêå ',imax,', â ñòîëáöå ',jmax);
readkey
end.


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

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

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

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

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

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