Задача 1:
var a:array[1..15] of integer;
i:integer;
begin
for i:=1 to length(a) do begin
a[i]:=random(-101)+50;
writeln('a[',i,']=', a[i]);
end;
end.
Задача 2:
var i:integer;
a:array[1..20] of integer;
b:array[1..20] of integer;
c:array[1..20] of integer;
begin
for i:=1 to length(a) do begin
a[i]:=random(-21)+10;
b[i]:=random(-21)+10;
c[i]:=a[i]+b[i];
write(a[i]:3, ' ');
end;
writeln();
for i:=1 to length(b) do write(b[i]:3, ' ');
writeln();
for i:=1 to length(c) do write(c[i]:3, ' ');
end.
Задача 3 (ряд Фибоначчи):
var i:integer;
a:array[1..20] of integer;
begin
for i:=1 to length(a) do begin
if i<=2 then a[i]:=1
else begin
a[i]:=a[i-2]+a[i-1];
end;
write(a[i], ' ');
end;
end.
# include <iostream>
using namespace std;
int main() {
int k; //ввод кол-ва строк в треугольннике
cout << "k = "; // И ввод степени 2-и
cin >> k;
int **a = new int *[k + 1];
for (int i = 0; i <= k; i++)
a[i] = new int[k + 1]; //выделяем память под i-ую строку
//заполняем массив
a[0][0] = 1;
a[1][0] = a[1][1] = 1;
for (int i = 2; i <= k; i++) {
a[i][0] = 1;
for (int j = 1; j < i; j++)
a[i][j] = a[i - 1][j - 1] + a[i - 1][j];
a[i][i] = 1;
}
//вычисляем 2^k
int S = 0;
for (int i = 0; i <= k; i++)
if (i == k)
for (int j = 0; j <= i; j++)
S += a[i][j];
cout << S;
system("pause");
return 0;
}