Написано на Pascal:
Program ArraySequence;
Var a: Array [1..10] Of Integer;
i: Integer;
Begin
a[0] := 2;
For i := 1 To 9 Do
a[i] := 2*a[i-1] - 1;
For i := 0 To 9 Do
Write(a[i], ' ');
ReadLn;
End.<span>
</span>
т.к. неравенство 2 * 3 < 0 не выполняется, то значение этого логического выражения 0
1.
var a:array[1..100] of integer;
n,i:integer;
begin
write('N = ');readln(n);
writeln('Полученный массив:');
for i:=1 to n do a[i]:=2*i-1;
for i:=1 to n do write(a[i]:3);
writeln;
end.
Пример:
N = 5
Полученный массив:
1 3 5 7 9
2.
const n=15;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
write('K = '); readln(k);
for i:=1 to n div k do write(a[i*k]:3);
writeln;
end.
Пример:
Массив A:
6 6 8 14 15 5 18 6 18 1 17 6 3 19 2
K = 3
8 5 18 6 2
Компьютер
Монитор
системный блок
клавиатура
Счастье буз ума - дырявая сума
всякое семя знает своё время