проверьте плз код!можно ли его оптимизировать или упростить?

[-ushёl-]

доброго времени бодрствания!Задача: Дан 2мерный массив a размерностью 5*5. Заполнить одномерный массив b по след.-ему правилу: если сумма очередной строки массива чётная,то соответствующий элемент массива равен 2,иначе-элемент массива b равен 1.Вычислить факториал от количества элементов массива равных 2.

program massivANDfactorial;
var
 a:array[1..5,1..5]of integer;
 i,j:integer;
 b:array[1..5]of integer;
 sum1,sum2,sum3,sum4,sum5,k,s2:integer;
 function Factorial(n:byte):longint;{фукция факториала}
  var
    fact:longint;
    i:byte;
   begin
    fact:=n;
     for i:=n-1 downto 2 do
      fact:=fact*i;
      Factorial:=fact;
    end;
  begin
   randomize;{"основа"}
   for i:=1 to 5 do
    for j:=1 to 5 do
     a[i,j]:=random(100);
     writeln('matrix',' ','a:');
     for i:=1 to 5 do
      begin
       writeln;
        for j:=1 to 5 do
         write(a[i,j]:4);
       end;
       writeln;
       writeln;
     sum1:=0;sum2:=0;sum3:=0;sum4:=0;sum5:=0;
     for i:=1 to 5 do
      begin
       sum1:=sum1+a[1,i];
       sum2:=sum2+a[2,i];
       sum3:=sum3+a[3,i];
       sum4:=sum4+a[4,i];
       sum5:=sum5+a[5,i];
       end;
       if sum1 mod 2=0 then b[1]:=2 else b[1]:=1;
         if sum2 mod 2=0 then b[2]:=2 else b[2]:=1;
           if sum3 mod 2=0 then b[3]:=2 else b[3]:=1;
             if sum4 mod 2=0 then b[4]:=2 else b[4]:=1;
              if sum5 mod 2=0 then b[5]:=2 else b[5]:=1;
              write('matrix',' ','b:');
              writeln;
      for k:=1 to 5 do
      writeln(b[k]);
      s2:=0;
      for k:=1 to 5 do
       if b[k]=2 then s2:=s2+b[k];{сумма всех "двушек" массива}
       writeln;
       writeln('factorial:');
       writeln(s2,'!','=',Factorial(s2));
       end.

[Sazary]

Подобные куски:

sum1:=sum1+a[1,i];
sum2:=sum2+a[2,i];
sum3:=sum3+a[3,i];
sum4:=sum4+a[4,i];
sum5:=sum5+a[5,i];

нужно упрощать в обязательном порядке.

uses crt;
const n=5;
var
a : array[1..n,1..n] of integer;
i,j,s,count : integer;
b : array[1..n] of integer;

function fact(n : integer) : longint;
var rez : longint;
begin
rez := n;
while n>1 do
 begin
 rez := rez*n;
 dec(n);
 end;
fact := rez;
end;

begin
clrscr;
randomize;
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  a[i,j] := random(100);
  write(a[i,j]:4);
  end;
 writeln;
 end;
writeln;

count := 0;
for i:=1 to n do
 begin
 s := 0;
 for j:=1 to n do
  inc(s,a[i,j]);
 if not odd(s) then
  begin
  b[i] := 2;
  inc(count);
  end
 else b[i] := 1;
 end;

writeln('factorial = ',fact(count));

readln;
end.

[Allen Iverson]

вот что получилось.....
кстати у вас была ошибка....вам нужно факториал по заданию считать от количества элементов равных 2, т.е. если элементов=2 получилось 3 то нужно вам 3!...а он программа в вашем тексте делает 2+2+2 и считает уже 6!....ошибка...вот исправленный и чуть укороченный код...

program massivANDfactorial;
uses crt;
var a:array[1..5,1..5]of integer;
    i,j:integer;
    b:array[1..5]of integer;
    sum:integer;
{-------}
function Factorial(n:byte):longint;{фукция факториала}
var
fact:longint;
i:byte;
begin
fact:=n;
for i:=n-1 downto 2 do
fact:=fact*i;
Factorial:=fact;
end;
{-------}
begin
clrscr;
randomize;{"основа"}
for i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=random(100);
writeln('matrix',' ','a:');
for i:=1 to 5 do
    begin
    writeln;
    for j:=1 to 5 do write(a[i,j]:4);
    end;
writeln;
writeln;
for i:=1 to 5 do
    for j:=1 to 5 do
        begin
        sum:=sum+a[i,j];
        if j=5 then
           begin
           if sum mod 2=0 then b[i]:=2 else b[i]:=1;
           end;
        end;
write('matrix',' ','b:');
writeln;
for k:=1 to 5 do writeln(b[k]);
for k:=1 to 5 do if b[k]=2 then s2:=s2+1;{!!!!!!КОЛИЧЕСТВО!!!!!!!!!! всех "двушек" массива}
writeln;
writeln('factorial:');
writeln(s2,'!','=',Factorial(s2));
readln;
end.

From Stilet: Что читабельно код оформить не судьба?

[Stilet]

Такая оптимизация подойдет?

var
   a:array[1..5,1..5]of integer;
 sum,cnt,faktorial,i,j:integer;
 b:array[1..5]of integer;
begin
randomize;{"основа"}
faktorial:=1;
   for i:=1 to 5 do begin
    for j:=1 to 5 do begin
     a[i,j]:=random(4);
     sum:=sum+a[i,j]; write(a[i,j]:5);
     if a[i,j]=2 then begin inc(cnt);faktorial:=faktorial*cnt; end;
    end;
     if sum mod 2=0 then b[i]:=2 else b[i]:=1;
     write('   b[i]=',b[i]);
     writeln;
   end;
   writeln('faktorial=',faktorial);
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[-ushёl-]

спасибо!!!!

[-ushёl-]

Немогли бы вы пояснить несколько моментов из этого куска? процедура inc увеличивает s c первоначальным значением 0 на кол.-во значений j столбцов массива а.И потом проверяется условие,то что чётно.?
count := 0;
for i:=1 to n do
begin
s := 0;
for j:=1 to n do
inc(s,a[i,j]);
if not odd(s) then
begin
b[i] := 2;
inc(count);
end
else b[i] := 1;
end;

[Sazary]

процедура inc увеличивает s c первоначальным значением 0 на кол.-во значений j столбцов массива а.И потом проверяется условие,то что чётно.?

Не на количество столбцов, а на элемент массива a[i,j].
s - сумма текущей строки.
Цикл

for j:=1 to n do
inc(s,a[i,j]);

Суммирует элементы строки.

И потом проверяется условие,то что чётно.?

Да. Функция odd возвращает true, если аргумент - нечетное число.

[-ushёl-]

гениально! этот ведь ход подойдёт и для матрицы большей размерности?

[Sazary]

этот ведь ход подойдёт и для матрицы большей размерности?

Для любой. Собственно, матрица может быть и не квадратной. Только тогда нужно еще m ввести.

[-ushёl-]

такие грамотные методы нужно называть в честь создателя!)