1
2
3
4
10
11
12
13
14
20
21
22
23
24
30
31
32
33
34
40
Const n=10;
var ar:array[1..n] of integer;
a,b,i,s:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
ar[1]:=a; ar[2]:=b; s:=a+b;
for i:=3 to n do
begin
ar[i]:=s+i;
s:=s+ar[i];
end;
for i:=1 to n do write(ar[i],' ');
writeln;
end.
Пример:
a = 2
b = 3
2 3 8 17 35 71 143 287 575 1151
Const amax=20;
var a: array[1..amax,1..amax] of integer;
i,j,k,n,m: byte;
begin
write('Введите размеры массива(матрицы (<20)):');
readln(n,m);
writeln('Массив(матрица):');
for i:=1 to n do begin
for j:=1 to m do begin a[i,j]:=random(99)+1;
write(a[i,j]:4);
end;
writeln;
end;
writeln('Кол-во четных элементов по колонкам:');
for j:=1 to m do
begin
k:=0;
for i:=1 to n do
if odd(a[i,j])=false then inc(k);
writeln('В ',j,' столбце ',k);
end;
writeln('Конец программы!');
end.