zloy zip
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
nowar
Код:| 14. Составить программу заполнения двумерного массива “по змейке”. |
В задаче не указана направленность змейки (вниз-вверх или влево-вправо), поэтому если вдруг понадобится эту самую направленность поменять то просто измени вложение циклов при заполнении.
Код:
const
n=2;
m=10;
var
i, j:integer;
z: array [1..n, 1..m] of integer;
begin
writeln('Введите элементы массива: ');
for i:=1 to n do
for j:=1 to m do
if (i mod 2)=1 then readln(z[i, j]) else readln(z[i, m-j+1]);
for i:=1 to n do
begin
for j:=1 to m do
write(z[i, j]+',');
writeln;
end;
readln;
end.
|
Добавлено:
nowar
Код:| 12. Дана матрица размера n на m. Найти первый нечетный элемент матрицы и умножить на него все элементы столбца и строки, на пересечении которых он находится. |
Код:
const
n=5;
m=5;
var
i, j, x, q1, q2:integer;
z: array [1..n, 1..m] of integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
z[i,j]:=round(random(10)+1);
for i:=1 to n do
begin
for j:=1 to m do
begin
write(z[i, j]);
write(',');
end;
writeln;
end;
x:=1;
for i:=n downto 1 do
for j:=m downto 1 do
if (z[i, j] mod 2)=1 then begin q1:=i; q2:=j; end;
x:=z[q1, q2];
for i:=1 to n do
x:=x*z[i, q2];
for i:=1 to m do
x:=x*z[q1, i];
x:=round(x/(z[q1, q2]*z[q1,q2]));
writeln(x);
readln;
end.
|
|
Всего записей: 15 | Зарегистр. 29-05-2009 | Отправлено: 11:40 01-06-2009 | Исправлено: zloy zip, 12:18 01-06-2009 |
|
