Pascal խնդիրներ

[hush]

1-ը իսկապես շատ հետաքրքիր խնդիր եր, բայց բան չհասկացա…

2.

var i,j,n,l,:integer;
a:array[1..10,1..10] of integer;
function bazm(i1,i2,k):bool;
begin
 bazm := ( (k mod (i1+i2))=0 );
end;
begin
 read(n);
 for i:=1 to n do
  for j:=1 to n do 
   read(a[i,j]);
 for i:=1 to n do
  for j:=1 to n do
   if (i<>j) and (i<>n-j+1) and bazm(i,j,a[i,j]) then l := l + a[i,j];
writeln('Պատ: ', l);
end.

բայց հիմա ժամանակ չկա տեստավորելու…

շատ շնորհակալ եմ, որ ժամանակ ես տրամադրել ու արել էսքանը, բայց չաշխատեց

[firewall]

շատ շնորհակալ եմ, որ ժամանակ ես տրամադրել ու արել էսքանը, բայց չաշխատեց

ամենացածր մակարդակի պասկալ իմացողը կուղեր այդ սխալները…

[hush]

ամենացածր մակարդակի պասկալ իմացողը կուղեր այդ սխալները…

եթե pascal իմանայի չէի դիմի ձեր օգնությանը…

Հ.Գ. 1ին խնդիրը կանեմ կամ այսօր կամ վաղը առավոտյան...մենակ մի հատ էլի հիշեցրեք էլի

էլի հիշեցում