готовый код!нужна помошь в проверке(корректировке)

[-ushёl-]

мэйны!проверьте пожалуйста ,если не затруднит,код и подскажите как можно решить 2 задачи!1|Заданы 2 числа a и b.Переменной t присвоить значение истина,если в одномерном массиве существует хотя бы один элемент,кратный a и не кратный b.
Вот код:

const
n=10;
var
a,b,c:integer;
t:boolean;
m:array[1..10]of integer;
begin
repeat
for a:=1 to n do
m[a]:=random(100);
writeln('введите 2 числа от 1 до 10:');
readln(b,c);
for a:=1 to n do
if t=((m[a] mod b) = 0) and ((m[a] mod c) <>0) then break;
if t then
begin
writeln('правда-',t);
for a:=1 to n do
write(m[a],'|')
end
else
begin
writeln('ложь-',t);
for a:=1 to n do
write(m[a],'|')
end;
readln;
until
t=true
end.

НО НА ВЫХОДЕ получаеться:
введите 2 числа от 1 до 10:
3
4
ложь-False
17|94|9|93|82|90|28|65|99|84|

здесь на 3 делиться и неделиться 5 чисел...Не понимаю в чём проблема??;


2|Вычислить сумму тех столбцов двумерного массива размерностью 5*5,последний элемент которых равен элементу ,стоящему на главной диагонали.У меня задумка изначальная есть,но проблема с выводом двумерного массива,да и с вычислениями мне кажеться!
Вот код:

var
 a:array[1..5,1..5]of byte;
 i,j:integer;{ i-строка, j-столбец...}
 s:real;
 begin
 randomize;
 for i:=1 to 5 do
 begin
 for j:=1 to 5 do
 a[i,j]:=random(100);
 end;
 for j:=1 to 5 do
 if a[5,j]=a[3,3] then{СРАВНИВАЕМ 5УЮ СТРОКУ ВСЕХ J-СТОЛБЦОВ С ЦЕНТРАЛЬНЫМ ЭЛЕМЕНТОМ МАССИВА}
 begin
 s:=0;
 for i:=1 to 5 do
 begin
 writeln;
  s:=s+a[5,j];
  write(a[i,j]:5);
  writeln;
  write(s)
  end
  end 
  else
  begin
  for i:=1 to 5 do
  write(a[i,j]:5);
  writeln;
  writeln;
  end;
  writeln(s,'     ','нет таких элементов в столбцах');
  end.

From Stilet: Оформлять читабельно будет Пушкин?

[OCTAGRAM]

В первой задаче вместо

for a:=1 to n do
if t=((m[a] mod b) = 0) and ((m[a] mod c) <>0) then break;

нужно

t := False;
for a:=1 to n do
  if ((m[a] mod b) = 0) and ((m[a] mod c) <>0) then
  begin
    t := True;
    break;
  end;

Во второй задаче, если я правильно понял условие, вместо

for j:=1 to 5 do
if a[5,j]=a[3,3] then{СРАВНИВАЕМ 5УЮ СТРОКУ ВСЕХ J-СТОЛБЦОВ С ЦЕНТРАЛЬНЫМ ЭЛЕМЕНТОМ МАССИВА}

должно быть

for j:=1 to 5 do
if a[5,j]=a[j,j] then{СРАВНИВАЕМ 5УЮ СТРОКУ ВСЕХ J-СТОЛБЦОВ С ЭЛЕМЕНТОМ, СТОЯЩИМ НА ГЛАВНОЙ ДИАГОНАЛИ}

[-ushёl-]

с первой всё ок!!!!а вот со 2 ой проблема всё равно.
if a[5,j]=a[j,j] then- тут мне кажеться должно стоять ...=a[3,3] then{если просто визуально представить или нарисовать квадрат чисел,то центральный элемент как раз на месте 3,3}
вот только с нормальным выводом массива непонятно...
70
46
63
98
29



11
9
55
20
73



55
58
89
74
21



16
98
1
74
34



91
2
0
46
86

0 нет таких элементов в столбцах
как можно вывести его в квадратном виде,что то ни как не получаеться?=)

[maladoy]

for i:=1 to 5 do begin
for j:=1 to 5 do
if a[i,j]<10 then  write('   ',a[i,j])
else
write('  ',a[i,j]);
writeln;
end;

вот тебе вывод в квадратном виде

[Sazary]

if a[5,j]=a[j,j] then- тут мне кажеться должно стоять ...=a[3,3] then{если просто визуально представить или нарисовать квадрат чисел,то центральный элемент как раз на месте 3,3}

Из условия:

2|Вычислить сумму тех столбцов двумерного массива размерностью 5*5,последний элемент которых равен элементу ,стоящему на главной диагонали

Про центральный элемент ни слова.
Нужен элемент текущего столбца, стоящий на главной диагонали. То есть a[j,j].

Еще вариант вывода в "квадратном виде".

for i:=1 to 5 do begin
for j:=1 to 5 do 
 write(a[i,j]:4);
writeln;
end;

[-ushёl-]

else
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(a[i,j]:5);
writeln;
end;
writeln(s,' ','нет таких элементов в столбцах');
end
end.
на выходе:
..нельзя изменять значение переменной цикла внутри этого цикла...

в коде стоит главный цикл после цикла "заполнения массива"-может причина с ним связана?
begin
for j:=1 to 5 do
a[i,j]:=random(100);
end;
{s:=0;}
for j:=1 to 5 do
if a[5,j]=a[3,3] then{СРАВНИВАЕМ 5УЮ СТРОКУ ВСЕХ J-СТОЛБЦОВ С ЦЕНТРАЛЬНЫМ ЭЛЕМЕНТОМ МАССИВА}
begin

[maladoy]

имхо косяк где то выше!!! тэг "код" сознательно игнорируем?

[Sazary]

-ushёl-, Если делать программу по тому условию, что вы написали, то она будет выглядеть так:

uses crt;
var
a:array[1..5,1..5]of byte;
i,j:integer;
s : longint;
b : boolean;
begin
clrscr;
randomize;
for i:=1 to 5 do
 begin
 for j:=1 to 5 do
  begin
  a[i,j]:=random(20);
  write(a[i,j]:4);
  end;
 writeln;
 end;
writeln;

b := false;
for j:=1 to 5 do
 if a[5,j] = a[j,j] then
  begin
  s:=0;
  for i:=1 to 5 do
   s:=s+a[i,j];
  b := true;
  writeln('Сумма столбца ',j,'= ',s:5)
  end;

if not b then writeln(s:5,' ','нет таких элементов в столбцах');
readln;
end.

Стоит заметить, что сумма 5-го столбца будет выводиться всегда (надеюсь, понимаете почему).

[-ushёl-]

пробовал.. не пошло

[-ushёl-]

if a[5,j] = a[j,j] then - здесь необходимо поставить а[i,j]?Работает всё отлично,только суммирование идёт всех столбцов...