Найти номер столбца массива размером Мх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 Найти номер столбца массива размером МхN, в котором находится наибольшее количество отрицательных элементов. Элементы вводятся с клавиатуры. 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, в котором находится наибольшее количество отрицательных элементов. Элементы вводятся с клавиатуры. размером Мх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 Найти номер столбца массива размером МхN, в котором находится наибольшее количество отрицательных элементов. Элементы вводятся с клавиатуры.,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 Найти номер столбца массива размером МхN, в котором находится наибольшее количество отрицательных элементов. Элементы вводятся с клавиатуры.[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.

11. Отыскать наибольшее нечетное число в матрице размером МхN, элементы которой задаются датчиком случайных Найти номер столбца массива размером МхN, в котором находится наибольшее количество отрицательных элементов. Элементы вводятся с клавиатуры. чисел на интервале [-27, 38].

program maxnechet;

Var a: array[1..50,1..50] of integer;

b: array[1..50] of integer;

i, j, n, m, p, max, k: 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*66)-27;

write(a[i Найти номер столбца массива размером МхN, в котором находится наибольшее количество отрицательных элементов. Элементы вводятся с клавиатуры.,j],’ ‘);

end;

writeln;

end;

kol:=0; p:=0;

For i:=1 to m do

For j:=1 to n do

If a[i;j]mod 2 0 then

begin

p:=p+1; b[p]:=a[i,j]; k:=k+1:

end;

if k=0 then writeln(‘нечетных частей нет’) else

begin

write(‘нечетные элементы:’);

max:=b[1];

for p:=1 to k do

begin

writ(b[p],’ ‘);

if b Найти номер столбца массива размером МхN, в котором находится наибольшее количество отрицательных элементов. Элементы вводятся с клавиатуры.[p]>max then max:=b[p];

end;

writeln(‘наибольшее нечетное число’, max);

end;

Задачки для самостоятельной работы

1. Подсчитать количество положительных частей в каждом столбце матрицы размером МхN, элементы которой вводятся с клавиатуры.

2. Подсчитать количество отрицательных частей в каждой строке матрицы размером МхN, элементы которой задаются при помощи датчика Найти номер столбца массива размером МхN, в котором находится наибольшее количество отрицательных элементов. Элементы вводятся с клавиатуры. случайных чисел на интервале [-35; 65].

3. Подсчитать количество четных частей в каждом столбце матрицы размером МхN, элементы которой задаются при помощи датчика случайных чисел на интервале [-98; 54].

4. Подсчитать количество четных отрицательных частей в матрице размером МхN, элементы которой вводятся с клавиатуры.

5. Сформировать матрицу 1 1 1 1

2 2 2 2

3 3 3 3

4 4 4 4

6. Сформировать матрицу 1 2 3 4

1 2 3 4

1 2 3 4

1 2 3 4

7. Сформировать матрицу 0 0 0 1

0 0 1 0

0 1 0 0

1 0 0 0

8. Отыскать номер большего элемента массива размером Найти номер столбца массива размером МхN, в котором находится наибольшее количество отрицательных элементов. Элементы вводятся с клавиатуры. МхN, элементы которого задаются датчиком случайных чисел на интервале [-67;23].

9. Отыскать номер большего элемента массива размером МхN, элементы которого вводятся с клавиатуры.

10. Отыскать больший элемент массива размером МхN, элементы которого задаются датчиком случайных чисел на интервале [-25;19].

11. Отыскать меньший элемент массива размером МхN, элементы которого вводятся с клавиатуры.

12. Отыскать сумму частей Найти номер столбца массива размером МхN, в котором находится наибольшее количество отрицательных элементов. Элементы вводятся с клавиатуры. в каждом столбце массива размером МхN, элементы которого задаются датчиком случайных чисел на интервале [-19;20].

13. Отыскать произведение частей в каждом столбце массива размером МхN, элементы которого вводятся с клавиатуры.

14. Отыскать произведение частей в каждой строке массива размером МхN, элементы которого вводятся с клавиатуры.

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

16. Отыскать сумму частей, стоящих на побочной диагонали массива размером МхN, элементы которого вводятся с клавиатуры.

17. Отыскать номер столбца массива размером МхN, в каком находится меньшее количество положительных частей. Элементы вводятся с клавиатуры.

18. Отыскать номер строчки массива размером МхN, в каком находится меньшее количество Найти номер столбца массива размером МхN, в котором находится наибольшее количество отрицательных элементов. Элементы вводятся с клавиатуры. положительных частей. Элементы вводятся с клавиатуры.

19. Отыскать номер строчки массива размером МхN, в каком находится наибольшее количество четных частей. Элементы задаются датчиком случайных чисел на интервале [-54;61].

20. Отыскать номер столбца массива размером МхN, в каком находится наибольшее количество частей, кратных 5. Элементы задаются датчиком случайных чисел на интервале [-27;43].

21. Отыскать меньшее четное Найти номер столбца массива размером МхN, в котором находится наибольшее количество отрицательных элементов. Элементы вводятся с клавиатуры. число в матрице размером МхN, элементы которой задаются датчиком случайных чисел на интервале [-65, 45].

22. Отыскать наибольшее число, кратное 3, в матрице размером МхN, элементы которой вводятся с клавиатуры.


najdish-v-m-n20-koncepcii-sovremennogo-estestvoznaniya-uchebnik-izd-2-e-pererab-i-dop-stranica-16.html
najdish-v-m-n20-koncepcii-sovremennogo-estestvoznaniya-uchebnik-izd-2-e-pererab-i-dop.html
najdite-gerundialnie-oboroti-opredelite-funkciyu-v-predlozhenii-perevedite.html