2. Создайте в программе Microsoft PowerPoint экспертную систему, определяющую тип информационной системы Требования к экспертной системе: a) Количество уровней не менее 5 b) Количество вариантов не менее 10 c) Переходы только по ссылкам d) Внешний вид системы соответствует тематике и стандартным требованиям к презентации
Program fantscrin;
const n = 10;
Var a: array [1..n] of integer;
b: array [1..n] of integer;
i,j:integer;
Begin
j:=0;
for i:=1 to n do
a[i]:=random(20);
for i:=1 to n do
write(a[i], ' ');
for i:=1 to n do
if (i mod 2 <> 0) then
begin
j:=j+1;
b[j]:=a[i];
end;
writeln('');
for i:=1 to n do
a[i]:=0;
for i:=1 to j do
a[i]:=b[i];
for i:=1 to j do
write(a[i], ' ');
writeln('');
writeln(j);
End.
program fantscrin;
const n = 10;
var a: array [1..n] of integer;
b: array [1..n] of integer;
max_a,max_b,i,k:integer;
begin
for i:=1 to n do
a[i]:=random(20);
for i:=1 to n do
b[i]:=random(20);
for i:=1 to n do
write(a[i], ' ');
writeln('');
for i:=1 to n do
write(b[i], ' ');
max_a:=1;
for i:=2 to n do
if(a[i]>a[max_a]) then max_a:=i;
max_b:=1;
for i:=2 to n do
if(b[i]>b[max_b]) then max_b:=i;
writeln('');
writeln('Max_a = ',max_a);
writeln('Max_b = ',max_b);
k:=a[max_a];
a[max_a]:=b[max_b];
b[max_b]:=k;
for i:=1 to n do
write(a[i], ' ');
writeln('');
for i:=1 to n do
write(b[i], ' ');
end.