Это в экселе?? произведение =<span>3 628 800</span>
//Dev-C++ 5.11 (C)
#include <stdio.h>
int main()
{FILE *inp,*outp,*para;
int n=1,i;
char c,ckar;
inp=fopen("input.txt","rt");
para=fopen("input.txt","rt");
outp=fopen("output.txt","wt");
c=fgetc(inp);
while (c!=EOF)
{if (c=='\n')
{if(n>6) for(i=0;i<n;i++)
{ckar=fgetc(para);
fputc(ckar,outp);}
else
for(i=0;i<n;i++)
ckar=fgetc(para);
n=0;}
c=fgetc(inp);
n++;}
if(n>6)
for(i=0;i<n-1;i++)
{ckar=fgetc(para);
fputc(ckar,outp);}
else
for(i=0;i<n-1;i++)
ckar=fgetc(para);
return 0;}
Var
a:array[1..10,1..10] of integer;
i, j, j1, max, s: integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
readln(a[i,j]);
max := a[1,1];
for i:=1 to 10 do
for j:=1 to 10 do
if a[i,j]>max then
begin
max := a[i,j];
j1:=j;
end;
for i:=1 to 10 do
begin
s:=a[i, 1];
a[i, 1] := a[i, j1];
a[i, j1] := s;
end;
<span>end.</span>