Двумерный массив. Сформировать по условию

@Anka11 · Регистрация: 24.12.2012

Студворк — интернет-сервис помощи студентам

Ребятушки помоги пожалуйста! сформировать и вывести на печать матрицу А[10,10] , элементы которой заданы произвольно, кроме элементов расположенных в заштрихованной области (рисунок b ) и равных нулю.Найти и вывести на печать номер и элементы строки,имеющие наибольшее количество нулевых элементов....
вот рисунок

@Puporev · 24.12.2012, 15:51

По моему картинка была неверно загружена(повернута), или так и задумано?

Добавлено через 14 минут
Если так и задумано, то

Pascal

uses crt;
const n=10;
var a:array[1..n,1..n] of integer;
    i,j,k,mx,ns:integer;
begin
clrscr;
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if(j>=i)and(j>=n-i+1) then a[i,j]:=0
    else a[i,j]:=random(10);
    write(a[i,j]:3)
   end;
  writeln
 end;
mx:=0;
ns:=0;
for i:=1 to n do
 begin
  k:=0;
  for j:=1 to n do
  if a[i,j]=0 then k:=k+1;
  if k>mx then
   begin
    mx:=k;
    ns:=i;
   end;
 end;
write('Больше всего нулей в строке ',ns);
readln
end.

25.12.2012, 04:53

Puporev, А если перевернуть картинку как надо,то как будет...напиши пожалуйста

@Puporev · 25.12.2012, 08:37

1 символ изменить...

Pascal

1	if(j>=i)and(j<=n-i+1) then a[i,j]:=0

Добавлено через 32 минуты
Только это наверное будет неразумно, всегда больше всего 0 будет в 1 строке.

@Anka11 1 / 2 / 0 Регистрация: 24.12.2012 Сообщений: 61
		1
	Двумерный массив. Сформировать по условию 24.12.2012, 11:08. Показов 696. Ответов 3 Метки нет (Все метки) Ребятушки помоги пожалуйста! сформировать и вывести на печать матрицу А[10,10] , элементы которой заданы произвольно, кроме элементов расположенных в заштрихованной области (рисунок b ) и равных нулю.Найти и вывести на печать номер и элементы строки,имеющие наибольшее количество нулевых элементов.... вот рисунок Миниатюры 0

aedf
	25.12.2012, 04:53	3
	Puporev, А если перевернуть картинку как надо,то как будет...напиши пожалуйста

	25.12.2012, 08:37

Опции темы