krg49 » 30 сен 2013, 22:48
у меня в консоле, нужно в делфи, я новичок, умею тока в консоле( а в делфи переделать ну никак не получается пжл помогите((
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
Var a:array[1..10,1..10] of byte;
summ:array[1..10] of byte;
i,j,m,n,max:integer;
SummChet, SummNechet:integer;
begin
writeln('vvedite razmernost matrici mxn: ');
write('m= '); readln(m);
write('n= '); readln(n);
writeln('vvedite elementi matr: ');
for i:=1 to m do
for j:=1 to n do begin
write('a[',i,',',j,']= ');
readln(a[i,j]);
end;
writeln('matrica');
for i:=1 to m do begin
for j:=1 to n do begin
write(a[i,j]:3);
summ:=summ+a[i,j];
end;
writeln;
end;
writeln('summa elementov kajdoi stroki: ');
max:=summ[1];
for i:=1 to m do
begin
writeln(i,' stoka: ',summ);
if summ>max then max:=summ;
end;
writeln('max summa:',max);
writeln('pomenyali pervuyu stoku s poslednei: ');
for i := 1 to n do
begin
j := a[1, i];
a[1, i] := a[m, i];
a[m, i] := j;
end;
for i := 1 to m do
begin
for j := 1 to n do
write(a[i, j]:6);
writeln;
end;
// Считаем сумму четных/нечетных элементов
writeln('summa elementov 4etnih i ne4etnih 4isel: ');
SummChet := 0;
SummNechet := 0;
for i := 1 to m do
for j := 1 to n do
begin
if (a[i, j] mod 2 = 0) then
inc(SummChet, a[i, j])
else
inc(SummNechet, a[i, j]);
end;
writeln('summa chetnih: ', SummChet:6);
writeln('summa nechetnih: ', SummNechet:6);
write('vihod-enter');
readln;
end.
у меня в консоле, нужно в делфи, я новичок, умею тока в консоле( а в делфи переделать ну никак не получается пжл помогите((
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
Var a:array[1..10,1..10] of byte;
summ:array[1..10] of byte;
i,j,m,n,max:integer;
SummChet, SummNechet:integer;
begin
writeln('vvedite razmernost matrici mxn: ');
write('m= '); readln(m);
write('n= '); readln(n);
writeln('vvedite elementi matr: ');
for i:=1 to m do
for j:=1 to n do begin
write('a[',i,',',j,']= ');
readln(a[i,j]);
end;
writeln('matrica');
for i:=1 to m do begin
for j:=1 to n do begin
write(a[i,j]:3);
summ[i]:=summ[i]+a[i,j];
end;
writeln;
end;
writeln('summa elementov kajdoi stroki: ');
max:=summ[1];
for i:=1 to m do
begin
writeln(i,' stoka: ',summ[i]);
if summ[i]>max then max:=summ[i];
end;
writeln('max summa:',max);
writeln('pomenyali pervuyu stoku s poslednei: ');
for i := 1 to n do
begin
j := a[1, i];
a[1, i] := a[m, i];
a[m, i] := j;
end;
for i := 1 to m do
begin
for j := 1 to n do
write(a[i, j]:6);
writeln;
end;
// Считаем сумму четных/нечетных элементов
writeln('summa elementov 4etnih i ne4etnih 4isel: ');
SummChet := 0;
SummNechet := 0;
for i := 1 to m do
for j := 1 to n do
begin
if (a[i, j] mod 2 = 0) then
inc(SummChet, a[i, j])
else
inc(SummNechet, a[i, j]);
end;
writeln('summa chetnih: ', SummChet:6);
writeln('summa nechetnih: ', SummNechet:6);
write('vihod-enter');
readln;
end.