a)
1. 5
2. 10
3. 15
4. 20
5. 25
6. 30
7. 35
8. 40
б)
1. -1
2. 2
3. 1
4. 4
5. 3
6. 6
7. 5
8. 8
Объяснение:
a) for i:=1 to 8 do a[i]:=i*5 - элемент равен значению индекса элемента (i) умноженного на 5
i = 1
a[1] = 1 * 5 = 5
i = 2
a[2] = 2 * 5 = 10
i = 3
a[3] = 3 * 5 = 15
i = 4
a[4] = 4 * 5 = 20
i = 5
a[5] = 5 * 5 = 25
i = 6
a[6] = 6 * 5 = 30
i = 7
a[7] = 7 * 5 = 35
i = 8
a[8] = 8 * 5 = 40
б) for i:=1 to 8 do if i mod 2=0 then a[i]:=i else a[i]:=i-2 - если индекс элемента чётный, то элемент равен своему индексу, иначе (индекс элемента нечётный) элемент равен индекс минус 2
i = 1
1 mod 2 = 0 (НЕТ)
a[1] = 1 - 2 = -1
i = 2
2 mod 2 = 0 (ДА)
a[2] = 2
i = 3
3 mod 2 = 0 (НЕТ)
a[3] = 3 - 2 = 1
i = 4
4 mod 2 = 0 (ДА)
a[4] = 4
i = 5
5 mod 2 = 0 (НЕТ)
a[5] = 5 - 2 = 3
i = 6
6 mod 2 = 0 (ДА)
a[6] = 6
i = 7
7 mod 2 = 0 (НЕТ)
a[7] = 7 - 2 = 5
i = 8
8 mod 2 = 0 (ДА)
a[8] = 8
{Тексерілмеген мақала|date={{subst:#time:F Y
Салыстырмалы басымдылықтар теориясы (theory of comparative advantage) — XIX ғасырда Давид Рикардо ойлап тапқан экономикалық модель.
Адам Смиттің абсолютті басымдылықтар теориясын дамытып, әрбір екі елдің саудасы тиімді екенін көрсеткен Давид Рикардо болатын. Ол тіптен екі елде нақты тауарлардың абсолют басымдылықтарына ие болмасада, ол тиімді деп санаған. Осыған қарап салыстырмалы басымдылықтар теориясы абсолют басымдылықтар теориясы секілді альтернатив бағаларды қолданды.
Осылардан, максималды салыстырмалы басымдылықтарға ие товар өңдеу специализациясы, абсолютті басымдылықтары ие болмаса да тиімді болды.
Объяснение:
осылай болады деп ойлаймын
const
n = 9; //константа может быть любой
type
mas = array[0..n] of integer; //тип задал только для процедуры, без подпрограмм отдельный тип не нужен
procedure copy_mas(var a, b: mas);
var
i, i1: integer;
begin
i1 : = 0;
for i : = 0 to n do
if (a[i] > = 0) and (a[i] < = 10) then
begin
b[i1] : = a[i];
i1 += 1;
end;
end;