Array2. Дано целое число $$N (\gt 0)$$. Сформировать и вывести целочисленный массив размера $$N$$, содержащий степени двойки от первой до $$N$$-й: $$2, 4, 8, 16, … $$.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
program Array2; var a:array[1..10] of integer; N,i:Integer; begin Write('N:'); Readln(N); a[1]:=2; for i:=2 to N do a[i]:=a[i-1]*2; for i:=1 to N do writeln(i,' : ',a[i]); end. |
Другие задачи из раздела Array можно посмотреть здесь.
Program Array_2;
Var
A:Array[1..10] of Integer;
i,N:Integer;
Begin
Write(‘Введите число N’);
Readln(N);
a[0]:=2;
for i:=1 to 10 do a[i]:=i;
End.