#include <iostream>
using namespace std;
int main()
{
int A,B,C;
cout<<"Input A: "<<endl;
cin>>A;
cout<<"Input B: "<<endl;
cin>>B;
cout<<"Input C: "<<endl;
cin>>C;
if(A>0||B>0||C>0)
cout<<"An optional item is present"<<endl;
else
cout<<"There is no additional item"<<endl;
return 0;
}
Var x:real; f:real; begin writeln('Введите значение х '); readln(x); if x < 3 then f:= 1/(x*x*x - 6) else f:= -(x*x) +3*x +9; write('Знание х = ', x, ' Функция равна ', f);<span> end.</span>
1-4) знаковая
5) вербальной
6) знаковой
7) вроде бы материальная или знаковая
8-10) знаковая
var a:array[1..10]of integer;
n,i,k:integer;
s:real;
begin
readln(n);
for i:=1 to n do readln(a[i]);
i:=1;
while i<=n do begin
if a[i]<0 then begin inc(k); s:=s+a[i]; end;
i:=i+2;
end;
if k<>0 then writeln(s:0:7,' ',k) else writeln('<span>Элементы не найдены</span>');
end.