Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
Презентация была опубликована 11 лет назад пользователемАртем Чемезов
1 9.Задана целочисленная матрица. Вывести N чисел - максимальные значения элементов для каждой строки, где N - количество строк матрицы
2 program a9; var i,j,n,m,p:integer; a:array[1..10,1..10] of integer; b:array[1..10] of integer; begin read (n,m); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(10); write(a[i,j]:3); end; writeln; end; for i:=1 to n do begin p:=a[i,1]; for j:=1 to m do if a[i,j]>p then p:=a[i,j]; b[i]:=p; end; for i:=1 to n do write(b[i]:3) end.
3 10.Задана целочисленная матрица. Переменной В присвоить значение, равное количеству строк матрицы А, содержащих хотя бы один нулевой элемент b=3
4 program a10; var i,j,n,m,k,b:integer; a:array[1..10,1..10] of integer; begin read (n,m); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(10); write(a[i,j]:3); end; writeln; end; writeln; for i:=1 to n do begin k:=0; for j:=1 to m do begin if a[i,j]=0 then k:=k+1; end; if k0 then b:=b+1 end; write('b=',b) end.
Еще похожие презентации в нашем архиве:
© 2024 MyShared Inc.
All rights reserved.