10 примеров (из школьных уроков)
1. декларативные знания
2. процедурные знания
3. не информативные знания
​

Код#include <iostream>constexpr double bites_to_megabytes(double a) {    return a / 8388608;}constexpr double megabytes_to_gigabytes(double a) {    return a / 1024;}int main() {    long long a;    short type;    bool is_correct = false;    double answer;    do {        std::cin >> a;        std::cout << "[1] Megabytes \n"                  << "[2] Gigabytes \n"                  << "Convert to [1] or [2]: ";        std::cin >> type;        if (type == 1 or type == 2) {            is_correct = true;        } else {            std::cout << "Meh. Try to type again. \n" << std:: endl;        }    } while (!is_correct);    switch (type) {        case 1:            answer = bites_to_megabytes(a);            break;        case 2:            answer = megabytes_to_gigabytes(bites_to_megabytes(a));            break;    }    std::cout << "An answer of conversion is " << answer << std::endl;    return 0;}

6)
const n=10;
var a: array[1..n] of integer;
i,max,min : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
max:=a[1]; min:=a[1];
for i:=2 to n do
begin
if a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
end;
writeln('L = ',max-min);
end.

Пример:
Исходный массив:
10 8 8 6 4 16 18 10 11 13
L = 14

9)
const n=10;
var a: array[1..n] of real; 
  i,k1,k2 : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
 a[i]:=10*random-5;
 write(a[i]:5:2);
 end;
writeln;
k1:=0; k2:=0;
for i:=1 to n do
 if a[i]>0 then k1:=k1+1
  else if a[i]<0 then k2:=k2+1;
writeln('Положительных: ',k1,', отрицательных: ',k2,' нулевых: ',n-k1-k2);
end.

Пример:
Исходный массив:
-1.03 2.79-3.60 0.33-3.69-4.69-2.34-4.19 1.20 1.74
Положительных: 4, отрицательных: 6 нулевых: 0

16)
const n=10;
var a: array[1..n] of real; 
  i : integer;
begin
for i:=1 to n div 2 do begin
 a[i]:=i;
 a[n div 2+i]:=sin(a[i]);
 end;
for i:=1 to n div 2 do
  writeln(a[i]:4:1,a[n div 2+i]:6:2);
end.

Пример:
1.0 0.84
2.0 0.91
3.0 0.14
4.0 -0.76
5.0 -0.96

19)
const n=10;
var a: array[1..n] of integer; 
  i: integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
 a[i]:=random(51);
 write(a[i]:5);
 end;
writeln;
writeln('Выбранные элементы:');
i:=1;
while i<=n do
 begin
 write(a[i],' ');
 i:=2*i;
 end;
end.

Пример:
Исходный массив:
8 38 22 45 36 23 21 13 5 13
Выбранные элементы:
8 38 45 13