Pawo
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
klizya
Цитата:| 1. (array) Даны два целочисленных массива, состоящие из одинакового числа элементов. Получить третий массив той же размерности, каждый элемент которого равен модулю разности соответствующих элементов данных массивов. |
Код: program p_array;
const
N=10; {размерность массива}
var
a,b,c: array[1..10]of integer; {эти массивы}
i:integer; {вспомогательная переменная}
begin
... {здесь заполнение массивов}
for i:=1 to N do c[i]:=abs(a[i]-b[i]);
... {здесь вывод результирующего массива}
end. |
Цитата: 3. (2D array) Заполнить массив А размером 6х4 следующим образом:
0 1 0 2
3 0 4 0
0 5 0 6
7 0 8 0
0 9 0 10
11 0 12 0 |
Код: program 2d_array;
const
x=6; {X массива}
y=4; {Y}
var
a:array[1..x,1..y]of integer; {тот самый массив}
i,j,cnt:integer; {временные переменные}
zeroflag:boolean;
begin
cnt:=0;
for i:=1 to y do
begin
if i mod 2 = 0 then zeroflag:=false else zeroflag:=true;
for j:=1 to x do
if zeroflag then
begin
zeroflag:=false;
a[j,i]:=0;
end else begin
zeroflag:=true;
inc(cnt);
a[j,i]:=cnt;
end;
end;
{вывод массива, если требуется}
end. |
Добавлено:
опоздал немного
Цитата:| a[1,1]:=0; a[1,2]:=1; a[1,3]:=0; a[1,4]:=2; a[2,1]:=3; И так далее, a[ i , j ] i-строка, j-столбец. |
Так не честно  .
Добавлено:
с Рождеством |
