Страница 1 из 1
Редактирование массива
Добавлено: 14 июн 2009, 19:41
Anjelika
Re: парни помогите написать програмку
Добавлено: 15 июн 2009, 23:33
Rudya
что значит оба массива? получится один массив просто с умножеными строками
Re: парни помогите написать програмку
Добавлено: 16 июн 2009, 00:58
azrael
Rudya писал(а):что значит оба массива? получится один массив просто с умножеными строками
Ну, видимо, исходный и умноженный
Re: парни помогите написать програмку
Добавлено: 16 июн 2009, 02:47
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.
Re: Редактирование массива
Добавлено: 16 июн 2009, 10:19
Хыиуду
Я любитель софистики
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 устное предупреждение за некорректное название темы.