Написать программу на паскале?

ВикуляПестрецова 9 окт. 2020 г., 06:25:21

Const NN = 50 ;

Var

a : array [1.

NN, 1.

NN] of integer ;

maxi, maxj, mini, minj, i, j, n, m : integer ;

begin

writeln('Введите кол - во строк и столбцов массива : ') ;

readln(n, m) ;

for i : = 1 to n do for j : = 1 to m do begin write('a[', i, ', ', j, '] = ') ; readln(a[i, j]) ; end ;

writeln ; writeln('Получившийся массив : ') ;

for i : = 1 to n do begin for j : = 1 to m do write(a[i, j] : 4) ; writeln ; end ;

maxi : = 1 ;

maxj : = 1 ;

mini : = 1 ;

minj : = 1 ;

for i : = 1 to n do for j : = 1 to m do begin if a[i, j]> ; a[maxi, maxj] then begin maxi : = i ; maxj : = j ; end else if a[i, j]< ; a[mini, minj] then begin mini : = i ; minj : = j ; end ; end ;

writeln ; writeln('Получившийся массив : ') ;

i : = a[maxi, maxj] ;

a[maxi, maxj] : = a[mini, minj] ;

a[mini, minj] : = i ;

for i : = 1 to n do begin for j : = 1 to m do write(a[i, j] : 4) ; writeln ; end ;

end.

Mehanik8283 15 мар. 2020 г., 22:04:01 | 10 - 11 классы

Дан одномерный массив из n целых чисел?

Дан одномерный массив из n целых чисел.

Составить программу нахождения максимального и минимального элементов.

Veronica1902 22 окт. 2020 г., 22:58:05 | 10 - 11 классы

Помогите пожалуйста написать программу на паскале : дан массив целых чисел?

Помогите пожалуйста написать программу на паскале : дан массив целых чисел.

Найти количество элементов, кратных 5, расположенных между максимальным и минимальным элементами массива (включая их).

Sasa023 16 янв. 2020 г., 11:32:58 | 10 - 11 классы

4. Дан одномерный массив А размерности N?

4. Дан одномерный массив А размерности N.

Поменять местами максимальный и минимальный элементы.

Alina200415 17 янв. 2020 г., 01:07:56 | 10 - 11 классы

1) Поменять местами минимальный четный элемент с последним?

1) Поменять местами минимальный четный элемент с последним.

2)На место максимального отрицательного элемента поместить сумму элементов кратных 3.

(в программе Паскаль) РЕБЯТКИ помогите))))))).

Alsunya91 17 июн. 2020 г., 06:45:17 | 10 - 11 классы

Помогите написать программу в pascal'e?

Помогите написать программу в pascal'e.

Если матрица квадратная, то поменять местами минимальный и максимальный элементы побочной диагонали.

В противном случае - заменить элементы четных строк нулями.

Тимур149 18 июл. 2020 г., 17:26:36 | 10 - 11 классы

Дан одномерный массив А размерности N?

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

Поменять местами максимальный и минимальный элементы.

Sunstar 25 июн. 2020 г., 03:44:52 | 5 - 9 классы

Написать программу, которая вводит с клавиатуры не пустой массив целых чисел, печатает его, затем находит максимальный и минимальный элемент массива, выводит их на экран?

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

Gaben345 24 дек. 2020 г., 08:36:03 | 10 - 11 классы

. Поменять местами минимальные и максимальные элементы?

. Поменять местами минимальные и максимальные элементы.

Ульяна665578 9 сент. 2020 г., 19:35:00 | 10 - 11 классы

(PASCAL) Дан двухмерный массив целых чисел?

(PASCAL) Дан двухмерный массив целых чисел.

Найти столбец с максимальной суммой элементов.

SpiderMan1997 3 авг. 2020 г., 10:04:59 | 10 - 11 классы

Написать в программу в паскале (сразу все) - найти максимальный и минимальный элемент в массиве?

Написать в программу в паскале (сразу все) - найти максимальный и минимальный элемент в массиве.