Проверка

[KIRILOW]

1)Сформировать и вывести матрицу А(10,10),элементы которой заданы произвольно,кроме элементов,расположенных в заштрихованной области (рис.) и равных нулю.

2)Вывести элементы и номер столбца, содержащего наибольшее количество нулей.


Найдите ошибку в программе пожалуйста.

 program massiv;
 uses crt;
type mas= array[1..10,1..10] of integer;
var
j,i,max,nmax,n:integer;
a: mas;
s:array[1..10] of integer;
ss:integer;
BEGIN
randomize;
clrscr;
writeln('reschenie zada4i na massivbI  ');
writeln('---------------------------');
 writeln('slu4aynbIy massiv bez nuley');
 for i:=1 to 10 do  begin
  for j:=1 to 10 do begin
  a[i,j]:=random(11)-5;
 write(a[i,j]:4);
                     end;
           writeln; end;
 for i:=1 to 5 do  begin
  for j:=1 to i do begin
   a[i,j]:=0;
     end;
      end;
  writeln;
   for j:=1 to 5 do  begin
  for i:=6 to 11-j do begin
   a[i,j]:=0;
       end;
     writeln;
     end;
      writeln('sformirovannbIy massiv ');
    for i:=1 to 10 do  begin
  for j:=1 to 10 do begin
  a[i,j]:=random(11)-5;
 write(a[i,j]:4);
                     end;
           writeln; end;
       writeln;
          writeln('kol-wo nuley po stolbcam ');
   for j:=1 to 10 do  begin
   s[j]:=0;
   for i:=1 to 10 do
    if a[i,j]=0 then s[j]:=s[j]+1;
     write(s[j]:4);
                     end;
    writeln;
    max:=s[1];nmax:=1;
   for i:=2 to 10 do
    if s[i] > max then begin
      max:=s[i]; nmax:=i;  end;
       writeln('nomer stolbca  ',nmax);
         writeln('soder#imoe stolbca  ',nmax);
          for i:=1 to 10 do   write(s[j]:4);
          writeln;
  writeln('konec zada4i ');
 readln;
END.

[Sciv]

До ошибки пока не дошли, но вот как можно реализовать заполнение покороче:

 
for i:=1 to 5 do
  for j:=1 to 10 do
    if J<=i then a[i,j]:=0 else a[i,j]:=random(11)-5;
for i:=6 to 10 do
  for j:=1 to 10 do
    if j<=(11-i) then a[i,j]:=0 else a[i,j]:=random(11)-5;

Элементарная логика подсказывает, что наибольшее количество нулей будет в первом столбце - 10.

А ошибки я что-то не вижу, вроде все правильно. Хотя код так структурирован, что читать невозможно

[KIRILOW]

А как полностью программа пишется?(если можно код)

[Sciv]

begin
clrscr;
randomize;
for i:=1 to 5 do
  for j:=1 to 10 do
    if J<=i then a[i,j]:=0 else a[i,j]:=random(11)-5;
for i:=6 to 10 do
  for j:=1 to 10 do
    if j<=(11-i) then a[i,j]:=0 else a[i,j]:=random(11)-5;
WriteLn(1);
For j:=1 to 10 do Write(a[1,j],' ');
WriteLn;
for i:=2 to 10 do begin
  s[i]:=0;
  for j:=1 to 10 do
    if a[i,j]=0 then inc(s[i]);
  if s[i]>=10 then begin
    WriteLn(s[i]);
    for j:=1 to 10 do write (a[i,j],' ');
    WriteLn;
  end;
end;
end.

Как-то так. Переменные объявлять не стал - они все из Вашего кода. Программа работает исходя из того, что в первом столбце уже максимальное число нулей

[KIRILOW]

Большое спасибо!!!

[Sciv]

Программа работает исходя из того, что в первом столбце уже максимальное число нулей

Однако исходя из собственного замечания, вынужден заметить, что либо вопрос поставлен изначально не совсем корректно, либо передан сюда в искаженной (или неполной) форме... Либо какой-то другой подвох имеется.

[Mad_Cat]

 uses crt;
const n=5;
var i,j:integer;
a:array[1..n,1..n] of integer;
begin
clrscr;
for i:=1 to n do begin
for j:=1 to n do begin
if (i=j) and (i <=n div 2) then
a[i,j]:=0
else
if (i>=j) and (j<=n-i+1 div 2+1) then
a[i,j]:=0
else a[i,j]:=random(n)+1;
write (a[i,j]:4);
end;
writeln;
end;
end.

0 5 3 1 1
0 0 3 1 2
0 0 0 3 1
0 0 4 1 3
0 4 3 1 2

[KIRILOW]

Это только под цифрой 1. А под цифрой два?

[Mad_Cat]

А под цифрой два?

а чего его искать то

writeln(1);

и усе