6. Подсчитать количество положительных элементов в каждой строке матрицы размером МхN, элементы которой вводятся с клавиатуры.
program kolpolvstr; Var a: array[1..50,1..50] of integer; i, j, m, n, kol: integer; Begin Write(‘сколько строк?’); Readln(m); Write(‘сколько столбцов?’); Readln(n); For i:=1 to m do begin For j:=1 to n do begin write(‘a[‘,i,’,’,j,’]=’); readln (a[i,j]); end; for i:=1 to m do begin kol:=0; for j:=1 to n do if a[i,j]>0 then kol:=kol+1; writeln(‘количество положительных элементов в ‘,i,’ строке: ‘,kol); end; writeln; end; end.
7. Сформировать матрицу типа 1 0 0 0
0 1 0 0 0 0 1 0 0 0 0 1 program formir; Var a: array[1..50,1..50] of integer; i, j, m, n: integer; Begin Write(‘сколько строк?’); Readln(m); Write(‘сколько столбцов?’); Readln(n); For i:=1 to m do begin For j:=1 to n do begin if i=j then a[i,j]:=1 else a[i,j]:=0; write(a[i,j]); end; writeln; End.
8. Найти номер столбца массива размером МхN, в котором находится наибольшее количество отрицательных элементов.
program nomerstolb; Var a: array[1..50,1..50] of integer; b: array[1..50] of integer; i, j, m, n, max, jmax: integer; Begin Write(‘сколько строк?’); Readln(m); Write(‘сколько столбцов?’); Readln(n); For i:=1 to m do begin For j:=1 to n do begin write(‘a[‘,i,’,’,j,’]=’); readln (a[i,j]); end; for j:=1 to m do begin b[j]:=0; for i:=1 to n do if a[i,j]<0 then b[j]:=b[j]+1; end; max:=b[1]; jmax:=1; For j:=2 to n do begin if b[j]>max then begin max:=b[j]; jmax:=j; end; end; writeln(‘Наибольшее количество отрицательных элементов в ‘;jmax ; ‘столбце’); end; end.
9. Упорядочить каждый столбец матрицы по возрастанию. Массив размером МхN, элементы которого задаются датчиком случайных чисел на интервале [-17;26].
program porydok; Var a: array[1..50,1..50] of integer; i, j, n, m,t,r: integer; Begin Write(‘сколько строк?’); Readln(m); Write(‘сколько столбцов?’); Readln(n); For i:=1 to m do begin For j:=1 to n do begin a[i,j]:=int(rnd*44)-17; write(a[i,j],’ ‘); end; Writeln; end; For j:=1 to n do For r:=1 to m do For i:=1 to m-1 do if a[i,j]> a[i+1,j] then begin t:= a[i,j]; a[i,j]:= a[i+1,j]; a[i+1,j]:= t; end; For i:=1 to m do begin For j:=1 to n do write(a[i,j],’ ‘); Writln; end; End.
10. Сформировать матрицу 1 1 1 1
2 2 2 2 3 3 3 3 program former; Var a: array[1..3,1..4] of integer; i, j: integer; Begin For i:=1 to 3 do begin For j:=1 to 4 do begin a[i,j]:=i; write(a[i,j]); end; writln; end; End.
Найти номер столбца матрицы в котором находится наименьшее количество положительных элементов
Найти номер столбца матрицы, в котором находится наименьшее количество положительных элементов
Найти номер столбца массива размером n*m, в котором находится наименьшее количество положительных.
Найти номер столбца массива размером MxN, в котором находится наименьшее количество положительных элементов
2. Найти номер столбца массива размером MxN, в котором находится наименьшее количество.
Найти номер столбца, в котором находится максимальное количество минимальных элементов столбца
Найти номер столбца, в котором находится максимальное количество минимальных элементов столбца.
Найти номер столбца массива размером M x N, в котором находится наибольшее количество отрицательных элементов
Найти номер столбца массива размером M x N, в котором находится наибольшее количество отрицательных.
315 / 244 / 149
Регистрация: 03.10.2017
Сообщений: 886
Записей в блоге: 1
Сообщение было отмечено Ксюз как решение
Решение
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
int n=5; int[,] Matrix=new int[n,n]; int k=50; int kol; int l=0; for (int j=0;jn;j++) { kol=0; for(int i=0;in;i++) { if (Matrix[i,j]>=0)kol++; } if(kolk) { l=j; k=kol; } } Console.WriteLine("Номер столбца: Количество элементов: ",l,k);
Регистрация: 11.05.2017
Сообщений: 18
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
int[,] matrix = new int[10, 10]; int numKol = 0, temp1 = 0, temp2 = 10; Random rand = new Random(); for (var i = 0; i matrix.GetLength(0); i++) for (var j = 0; j matrix.GetLength(1); j++) matrix[i, j] = rand.Next(-100, 100); for (var i = 0; i matrix.GetLength(0); i++) { for (var j = 0; j matrix.GetLength(1); j++) { if (matrix[j, i] >= 0) temp1++; if (temp1 temp2 && j == 9) { numKol = i + 1; temp2 = temp1; } } temp1 = 0; } Console.ReadKey();
Определить номер столбца прямоугольной матрицы, в котором число элементов, больших М, минимально
У меня такая задача: Определить номер столбца прямоугольной матрицы, в котором число элементов, больших М, минимально. При этом нужно параметры матрицы ввести с клавиатуры, а заполнить ее случайным образом. Далее, в функции нужно реализовать как раз основную задачу программы — сравнить элементы в столбце, найти сколько элементов в нем больше переменной М, сделать тоже самое с другими столбцами и сравнить в итоге, где число элементов, больших М, минимально. Ввод матрицы и вывод ее на экран у меня получилось сделать, не без помощи пользователей #ХэшКод 🙂 Вот здесь можете посмотреть, если кому интересно здесь Теперь не соображу, как сделать так, чтобы стало возможным работать с элементами массива именно по столбцам в функции, где будет происходить как раз именно их сравнение с переменной M по столбцам. Думаю, что нужно добавить одномерный массив, в который будут копироваться значения из столбцов. Что скажите? Вот код, что у меня получается. Пока что застопорилась на функции.
program zadanie; uses crt; const a = 10; b = 10; type mass = array [1..a, 1..b] of integer; stolbcij_matricij = array [1..b] of integer; var matr : mass; stolb: stolbcij_matricij; m : integer; a1,b1 : integer; <*********************************************************************>procedure vvod_matricij; var i,j:integer; begin writeln('Vvedite a: '); readln(a1); writeln('Vvedite b: '); readln(b1); randomize; for i:=1 to a do begin for j:=1 to b do begin matr[i,j]:=random(10); end; end; end; <*********************************************************************>procedure matrica_na_ekrane; var i,j : integer; begin for i:=1 to a1 do begin for j:=1 to b1 do begin write(matr[i,j]:5); end; writeln;writeln; end; end; <*********************************************************************>function stolbec:integer; var m : integer; j : integer; kolichestvo : integer; begin write('Vvedite peremennyu M: '); readln(m); kolichestvo := 0; end; <*********************************************************************>BEGIN clrscr; vvod_matricij; matrica_na_ekrane; stolbec; readln; END. Что делать дальше?
Отслеживать
28.5k 12 12 золотых знаков 58 58 серебряных знаков 118 118 бронзовых знаков
ПОМОГИТЕ. Найти номер столбца массива размером MxN, в котором находится наименьшее количество положительных элементов. Элементы вводятся с клавиатуры.
Const
M = 3;
N = 3;
Var
A:array[1..M,1..N]of real;
B:array[1..N]of integer;
i,j:integer;
Begin
WriteLn(‘Заполни массив ‘,M,’x’,N);
For i:= 1 to M do
For j:= 1 to N do
Read(A[i,j]);
For j:= 1 to N do
For i:= 1 to M do
if (A[i,j]>0) then B[j]:=B[j]+1;
j:=N;
For i:= 1 to N-1 do
if (B[j]>B[i]) then j:=i;
WriteLn(j)
End.
Новые вопросы в Информатика
срочно даю 15 балов
[Python] За допомогою циклу введи 10 ключів та значень у словник Перевір чи є у словнику ключ зі списку, якщо є виведи значення словарь <1:”banan”, “ … cat”: “кошка”, “34”: “aslan”,'drink': 'juice', 'food': 'spaghetti', 'cutlery': 'fork' >Список [1,”34”,45,’drink’,’fork’]
спам этоможете ответить одним словому меня просто тест
За допомогою циклу введи 10 ключів та значень у словник. Перевір чи є у словнику ключ зі списку, якщо є виведи значення. словарь <1:”banan”, “cat”: “ … кошка”, “34”: “aslan”,'drink': 'juice', 'food': 'spaghetti', 'cutlery': 'fork' >Список [1,”34”,45,’drink’,’fork’]