Ввести в память машины двумерный массив А(М,N).Найтти наибольший элемент в каждой строке и из найденых чисел сформировать одномерный массив В(М)
10-11 класс
|
program pr;
var
dmas:array [1..100, 1..100] of integer;
omas:array [1..100] of integer;
n,m,i,k,x:integer;
begin
x:=0;
writeln ('Введите столбцов массива');
readln (m);
writeln ('Введите строк массива');
readln (n);
for i:=1 to n do
begin
writeln ('Введите элементы ',i,' строки');
for k:=1 to m do readln (dmas[i,k]);
end;
for i:=1 to n do
begin
for k:=1 to m do if dmas[i,k]>x then x:=dmas[i,k];
omas[i]:=x;
x:=0;
end;
writeln ('Выводим одномерный массив');
for i:=1 to n do writeln (omas[i]);
readln;
end.
program ххх;
var n,m,i, j, max : integer;
Другие вопросы из категории
лементов. И нужно вывести на экран массивы А(10), В(10), С(10). 2) Информация о средней суточной температуре воздуха за месяц задана в виде массива. Определите и выведите на экран, сколько раз температура была ниже среднемесячной.
помогите
Читайте также
2. Задать двумерный массив (4х4) случайными значениями от 12 до 18 включительно. Вывести сумму значений элементов каждого столбца матрицы.
3. Задать двумерный массив (7х7) случайными значениями от 12 до 18 включительно. В каждом столбце матрицы найти количество элементов, значения которых меньше 14.
4. Задать двумерный массив (3х3) с клавиатуры, поменять значения элементов 1 столбца со вторым.
5. Найти минимальный элемент матрицы (5х5), заданной случайными значениями от 1 до 5 включительно, лежащие ниже главной диагонали.
матрицу и полученный массив.
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.