Паскаль(масиви) очень нада

[basav1k]

Завдання 1
Написаты программу, которая проверяет, введен с клавиатуры квадратная матрица магическим квадратом. Магический квадрат называется матрица, сумма элементов которой в каждой строке, в каждом столбце и по каждой диагонали одинаковы.
2 9 4
7 3 3
6 1 8
Завдання 2.
Посчитать количество строк, содержащих по крайней мере один нулевой элемент

[sabbathist]

Тут решение указано уже в условии. Сначала считаете сумму эл-тов первой строки. Потом проверяете последовательно все остальные строки, столбцы и диагонали. Если сумма их элементов не равна нашему числу (сумме эл-тов первой строки), то ответ "нет". иначе - да.
2. Тут тоже все просто. Заводите счетчик количества строк с нулевым элементом. Пробегаете по всем строкам. Если в текущей строке обнаруживаете нулевой элемент, то увеличиваете счетчик на 1. В итоге в счетчике у вас будет хранится ответ на задачу

[basav1k]

Сообщение от sabbathist

Тут решение указано уже в условии. Сначала считаете сумму эл-тов первой строки. Потом проверяете последовательно все остальные строки, столбцы и диагонали. Если сумма их элементов не равна нашему числу (сумме эл-тов первой строки), то ответ "нет". иначе - да.
2. Тут тоже все просто. Заводите счетчик количества строк с нулевым элементом. Пробегаете по всем строкам. Если в текущей строке обнаруживаете нулевой элемент, то увеличиваете счетчик на 1. В итоге в счетчике у вас будет хранится ответ на задачу

я нуб(((((((((((((((

[DoDge_VipeR]

я нуб(((((((((((((((

стучись за денюжку сделаю!

[ROMA2PVT]

А вас поисковиком вначале пользоваться неучили?
http://www.cyberforum.ru/pascal/thread18789.html
Там просто Пупорев угорел.Гы.Гы.

[basav1k]

ну памагите пожалусто ну просто вапрос жизни и смерти очень нужно решение(

[ROMA2PVT]

-II-

uses
  crt;
var
  a:array [1..20,1..20] of integer;
  i,j,k,l,n,m:integer;
begin
  clrscr;
  randomize;
  write('Введите количество строк: ');
  readln(n);
  write('Введите количество столбцов: ');
  readln(m);
  for i:= 1 to n do
  begin
    for j:= 1 to m do
    begin
      a[i,j]:= random(10)-5;
      write(a[i,j]:3);
    end;
    writeln;
  end;
  k:=0;
  for i:= 1 to n do
  begin
    for j:= 1 to m do
      if a[i,j]=0 then
      begin
        inc(k);
        break;
        end;
    if k=0 then
      inc(l);
    k:=0;
  end;
  write('Количество строк содержажих нули: ',l);
  readkey;
end.

if k=0 then
      inc(l);
    k:=0;

Можно удалить и выводить просто k.

[ROMA2PVT]

Program mag_kvadrat;
USES
   CRT;
CONST
   NMAX=100;
VAR
   a:array [1..NMAX,1..NMAX] of integer;
   n:integer;
   OK:boolean;
   i,j:integer;
   sum:integer;
   temp:integer;
   Num:byte;
BEGIN
ClrScr;
Write ('BBEDUTE PA3MEP KBADPATHOU MATR U HAWMUTE <Enter> ->');
Readln (n);
Writeln;
Writeln ('ВВЕДИТЕ ЭЛЕМЕНТЫ МАТРИЦЫ: ');
Writeln;
for i:=1 to n do
begin
Write('->');
for j:=1 to n-1 do
read(a[i,j]);
Readln (a[i,n]);
end;
OK:=TRUE;
sum:=0;
for i:=1 to n do
sum:=sum+a[i,i];
i:=1;
REPEAT
temp:=0;
for j:=1 to n do temp:=temp+a[i,j];
i:=i+1;
if temp<> sum then OK:=FALSE;
UNTIL (not OK) or (i>n);
If OK then
Begin
j:=1;
REPEAT
temp:=0;
for i:=1 to n do
temp:=temp+a[i,j];
j:=j+1;
if temp<> sum then OK:=FALSE;
UNTIL (not OK) or (j>n);

If OK then
begin
temp:=0;
j:=n;
for i:=1 to n do
begin
temp:=temp+a[i,j];
j:=j-1;
end;
if temp<> sum then OK:=FALSE;
end;
End;
Writeln;
Write ('ВВВЕДЁННАЯ МАТРИЦА');
If not OK then
Write('!!! НЕ !!!');
Writeln (' ЯВЛЯЕТСЯ МАГИЧЕСКИМ КВАДРАТОМ!!!!');
Readkey;
END.

Скопипастил по той ссылке и упростил.А приведённая вами матрица не будет являться магическим квадратом.

[basav1k]

дякую ROMA2PVT

[ROMA2PVT]

Чесно не знаю украинский язык.Что это означает

дякую

?