Дан двумерный массив, найти максимальное и минимальное значение ?

Zaira13 9 окт. 2020 г., 09:00:57

Uses crt ; {вывод результата в отдельном окне}

var i, j, n, m, max, min : integer ; {ввод переменных}

a : array[1.

10, 1.

10] of integer ; {ввод массива}

begin

clrscr ; {очистка экрана вывода}

writeln ('vvedite chislo n') ; {выводим на экран сообщение}

read(n) ; {вводим число}

writeln ('vvedite chislo m') ; {выводим на экран сообщение}

read(m) ; {вводим число}

writeln ('vvedite elementu massiva') ; {выводим на экран сообщение}

for i : = 1 to n do

for j : = 1 to m do

begin {откроем операторные скобки, чтобы каждый раз не задавать границы массива}

readln(a[i, j]) ; {вводим массив}

max : = a[1, 1] ; {задаем значения для минимума и максимума для сравнения с другими элементами}

min : = a[1, 1] ;

if a[i, j] > ; max then

max : = a[i, j] ;

if a[i, j] < ; min then

min : = a[i, j] ;

end ; {закроем операторные скобки}

writeln('max = ', max, 'min = ', min) ; {вывод на экран сообщения}

end.

Nastya2551 8 нояб. 2020 г., 03:34:06 | 10 - 11 классы

Объясните, пожалуйста, как будет работать программа, если в 8 строке будет i : = ivar a : array [1?

Объясните, пожалуйста, как будет работать программа, если в 8 строке будет i : = i

var a : array [1.

5] of integer ;

i, min, max, x : integer ;

begin

for i : = 1 to 5 do begin a[i] : = random(10) ; writeln(a[i]) ; end ;

max : = a[1] ;

min : = a[1] ;

for i : = i to 5 do begin

if a[i]> ; max then max : = a[i] ;

if a[i]< ; min then min : = a[i] ;

end ;

writeln('max = ', max) ;

writeln('min = ', min) ;

end.

Умница20011001 19 нояб. 2020 г., 05:26:59 | 10 - 11 классы

Program1?

Program1.

Pas(17) : Нельзя изменять значение переменной цикла внутри этого цикла

Помогите исправить ошибку .

Program Lin_10 ;

uses crt ;

type mas = array [1.

9, 1.

9] of integer ;

var D, b : mas ;

i, j, t, min : integer ;

Begin

clrscr ;

Randomize ;

for i : = 1 to 9 do begin

for j : = 1 to 9 do begin

D[i, j] : = random(30) - 60 ; Write(D[i, j] : 4) ; End ;

Writeln ; Writeln(' Задача 10_1 ') ;

for i : = 1 to 9 do

for j : = 1 to 9 do begin

min : = D[i, j] ;

End ;

If min> ; D[i, j] then min : = [i, j] ; End ;

Writeln ; Writeln('Min = ', min) ; Writeln(' Задача 10_2 ') ; for i : = 1 to 9 do begin for j : = 1 to 9 do begin If (D[i, j] mod 2) = 0 then D[i, j] : = 0 ;

Write(D[i, j] : 4) ;

End ; Writeln ; Writeln(' Задача 10_3 ') ; t : = 1 ; for j : = 1 to 9 do begin i : = j ;

B[t] : = D[i, j] ; t : = t + 1 ;

u : = t ; End ;

For t : = 1 to u - 5 do begin

Write (D[t] : 4) ;

End ;

Writeln ; Writeln(' Задача 10_4 ') ;

Writeln(' Задача 10_5 ') ;

sum : = 0 ;

for i : = 1 to 9 do For j : = 1 to 9 do begin

If D[i, j] mod 3 = 0 then Sum : = sum + D[i, j] ;

End ;

Write('sum = ', sum) ;

Readln ;

End ;

Annhomak 1 мая 2020 г., 13:17:57 | 5 - 9 классы

Это правильно ?

Это правильно ?

Это информатика 9 класс.

Задача.

Среди 4 чисел найти максимум и минимум :

program zadacha ;

var

a, b, c, d, max, min : real ;

begin

writeln('vvedite kofficient a, b, c, d') ;

If a> ; b then max : = a else min : = b ;

If c> ; d then max : = c else min : = d ;

If a> ; c then max : = a else min : = c ;

end.

Romanmedynskii 28 дек. 2020 г., 19:30:34 | 10 - 11 классы

ПАСКАЛЬ Ошибка : " Нельзя преобразовать тип integer к array [1?

ПАСКАЛЬ Ошибка : " Нельзя преобразовать тип integer к array [1.

40] of integer" var mas : array[1.

40] of integer ; i, max, max1 : integer ; begin max : = 0 ; max1 : = 0 ; For i : = 1 to 40 do begin mas : = random(101) ; write(mas[i] : 4) ; If mas[i]> ; max then max : = mas[i] ; end ; For i : = 1 to 40 do If (mas[i]< ; > ; max) and (mas[i]> ; max1) then max1 : = mas[i] ; writeln ; writeln(max1) ; end.

Marta134 18 сент. 2020 г., 05:01:56 | 10 - 11 классы

Program pr ; var mas : array[1?

Program pr ; var mas : array[1.

10] of integer ; i, min, ind : integer ; Begin randomize ; For i : = 1 to 10 do Begin mas[i] : = Random(100) ; write(mas[i], ' ') ; End ; writeln() ; min : = mas[1] ; For i : = 1 to 10 do Begin If (min> ; mas[i]) then End ; write('Минимальный элемент массива : ', min) ; End.

Что не верно?

Вот задача : Дан одномерный массив А длиной N.

Определить, на какой позиции нахо - дится минимальный элемент массива.

Wert1234 14 июл. 2020 г., 17:03:07 | 10 - 11 классы

Сказали что у меня не все пояснения к задаче, нужны пояснения к каждой строчке Program kursz5 ; uses crt ; / / Подключение модуля crt const n = 10 ; const m = 10 ; var / / Описание переменных i, j, ma?

Сказали что у меня не все пояснения к задаче, нужны пояснения к каждой строчке Program kursz5 ; uses crt ; / / Подключение модуля crt const n = 10 ; const m = 10 ; var / / Описание переменных i, j, max, min : integer ; a : array[1.

N, 1.

M] of integer ; / / Ввод массива begin randomize ; / / Подключение датчика случайных чисел for i : = 1 to n do / / Ввод чисел для переменных массива for j : = 1 to m do a[i, j] : = random(100) ; / / Ввод случайных чисел max : = a[1, 1] ; min : = a[1, 1] ; for i : = 1 to n do begin for j : = 1 to m do begin if a[i, j] > ; max then max : = a[i, j] ; / / Вывод max элемента НЕ ПРАВИЛЬНО if a[i, j] < ; min then min : = a[i, j] ; / / Вывод min элемента write(a[i, j] : 5) ; end ; writeln ; end ; writeln() ; writeln('max = ', max, ' min = ', min) ; / / Вывод max и min значений end.

Drpetrovich 29 февр. 2020 г., 02:23:05 | 10 - 11 классы

Нужно поменять местами макс?

Нужно поменять местами макс.

И мин.

Значения.

Что не так?

PROGRAM MATRICA ; USES CRT ; CONST N = 3 ; M = 4 ; A = - 20 ; B = 20 ; VAR I, J, MIN, MAX, T : INTEGER ; Y : ARRAY [1.

N, 1.

M] OF INTEGER ; BEGIN CLRSCR ; RANDOMIZE ; WRITELN('MATRICA Y') ; MIN : = 0 ; MAX : = 0 ; T : = 0 ; FOR I : = 1 TO N DO BEGIN FOR J : = 1 TO M DO BEGIN Y[I, J] : = TRUNC((B - A) * RANDOM + A) ; WRITE(Y[I, J] : 6) ; IF Y[I, J]MAX THEN MAX : = Y[I, J] ; END ; WRITELN ; END ; WRITELN('Минимальное значение = ', MIN) ; WRITELN('Максимальное значение = ', MAX) ; T : = MIN ; MIN : = MAX ; MAX : = T ; FOR I : = 1 TO N DO BEGIN FOR J : = 1 TO M DO BEGIN WRITE(Y[I, J] : 6) ; END ; WRITELN ; END ; READKEY ; END.

Эннита 25 дек. 2020 г., 22:31:26 | 10 - 11 классы

Найти максимальный элемент этого массива const n = 20 ; var a : array[1?

Найти максимальный элемент этого массива const n = 20 ; var a : array[1.

N] of integer ; i, max : integer ; begin randomize ; for i : = 1 to n do a[i] : = random(90) + 10 ; for i : = 1 to n do write(a[i] : 4) ; writeln ; for i : = to n do if a[i] then max : = ; writeln('max : ', ) ; end.

Zaika220681 25 нояб. 2020 г., 06:38:19 | 10 - 11 классы

Выдает ошибку Операция > ; не может быть применена к типам boolean и integer Program qq ; var a, b, c, max, min, med : integer ; begin writeln ('введите три числа') ; read (a, b, c) ; if c> ; b>?

Выдает ошибку Операция > ; не может быть применена к типам boolean и integer Program qq ; var a, b, c, max, min, med : integer ; begin writeln ('введите три числа') ; read (a, b, c) ; if c> ; b> ; a then begin max : = c ; med : = b ; min : = a ; End ; if b> ; a> ; c then begin max : = b ; med : = a ; min : = c ; End ; if a> ; c> ; b then begin max : = a ; med : = c ; min : = b ; End ; writeln ('наибольшее число', max) ; writeln ('среднее число', med) ; writeln ('наименьшее число', min) ; End.

GioZam 1 дек. 2020 г., 11:19:33 | 10 - 11 классы

Задание :Ввести массив в данную программуvarn, i, a, min : integer ;beginreadln(n) ;min : = 30001 ;for i : = 1 to n dobeginreadln(a) ;if (a mod 10 = 4) and (a < min) thenmin : = a ;end ;writeln(min)en?

Задание :

Ввести массив в данную программу

var

n, i, a, min : integer ;

begin

readln(n) ;

min : = 30001 ;

for i : = 1 to n do

begin

readln(a) ;

if (a mod 10 = 4) and (a < min) then

min : = a ;

end ;

writeln(min)

end.