Здравствуйте.Информатика 10 класс.Во такой:Разработанная нами экспертная система в качестве вершин ответов не всегда указывает на семейство,а завершает свою работу указанием,например,класса растения.Это сделано лишь потому,что система носит чисто иллюстративный характер.Разработайте более полный вариант базы знаний данной экспертной системы ОЧЕНЬ НАДО.ИНТЕРЕСУЕТ НОРМАЛЬНЫЙ ОТВЕТ.
Program a10;
var a,b:Array [1..100,1..100] of integer;
k,i,n,j,s:integer;
Begin
read(n);
For i:=1 to n do
begin
For j:=1 to n do
begin
read(a[i,j]);
end;
end;
i:=0;j:=0;s:=0;k:=0;
while i<=n do
begin
i:=i+1;j:=j+1;
if(a[i,j]>0)then k:=k+1;
s:=s+a[i,j];
end;
writeln(k,' ',s);
end.
2)
Program a10;
var a,b:Array [1..100,1..100] of real;
k,i,n,m,j:integer;
s:real;
Begin
read(n,m);
For i:=1 to n do
begin
For j:=1 to m do
begin
read(a[i,j]);
end;
end;
k:=0;
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
begin
s:=s+a[i,j];
end;
for i:=1 to n do
begin
if(a[i,j]>(s-a[i,j]))then k:=k+1;
end;
end;
writeln(k);
end.
#include <iostream>
using namespace std;
int main()
{
int a1 = 2;
int d = -2;
int amount = 0;
int n;
cin >> n;
for (int i = 0; i < n; i++)
{
amount += a1;
cout << a1 << " ";
a1 += d;
}
cout << endl << amount;
}
Объяснение:
#include <iostream> // Библиотека ввода - вывода
using namespace std; // Пространство имён
int main()
{
int a1 = 2; // Первый элемент = 2
int d = -2; // Разность = -2
int amount = 0; // Сумма = 0
int n; // Создание целочисленной переменной n
cin >> n; // Ввод с клавиатуры
for (int i = 0; i < n; i++) // Идём от нуля до n
{
amount += a1; // Суммируем элемент
cout << a1 << " "; // Выводим элемент
a1 += d; // Узнаём следующий элемент прогрессии
}
cout << endl << amount; // Выводим сумму
}