Редактирование массива

[Anjelika]

напишите плиз програмку на паскале, я студентка первого курса технического вуза, так што как нибудь по проще)) Дан двухмерный массив 5*5, вводимый с клавиатуры. Умножить все элементы в четных строках на 2, а в нечетных на 3, Вывести оба массива на экран

[Rudya]

что значит оба массива? получится один массив просто с умножеными строками

[azrael]

что значит оба массива? получится один массив просто с умножеными строками

Ну, видимо, исходный и умноженный

[Rudya]

кушай с хлебушком ;D

Код: Выделить всё

program Rudya;
var a:array[1..5,1..5] of integer;
i,j,z:integer;
begin
writeln('vvedite elementy massiva');
for i:=1 to 5 do
for j:=1 to 5 do begin
write('a[',i,',',j,']= ' ); read(a[i,j]); end;
for i:=1 to 5 do begin
for j:=1 to 5 do
 write(' ',a[i,j]);writeln end;writeln;readln;
for i:=1 to 5 do begin
if (i mod 2)=0 then begin for j:=1 to 5 do a[i,j]:=a[i,j]*2;end else begin
for j:=1 to 5 do a[i,j]:=a[i,j]*3 end;end;
for i:=1 to 5 do begin
for j:=1 to 5 do
 write(' ',a[i,j]);writeln end;writeln;readln;

readln;
end.

[Хыиуду]

Я любитель софистики
for i:=1 to 5 do begin
if (i mod 2)=0 then begin for j:=1 to 5 do a[i,j]:=a[i,j]*2;end else begin
for j:=1 to 5 do a[i,j]:=a[i,j]*3 end;end;
Можно заменить на
for i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=a[i,j]*(i mod 2+1);

Пользователю Anjelika устное предупреждение за некорректное название темы.