Колёсиком мыши или движениями
#include <iostream>
#include <cmath>
using namespace std;
void vvod(float z[10], int &n);
float Sa (float z[10], int n, float x) ;
//---------------------------------------------------------------------------
int main()
{float a[10], b[10], c[10], h, t, sa, sb,sc;
int i, na, nb, nc;
vvod(a,na);vvod(b,nb);vvod(c,nc);
sa=Sa(a,na,h);
sb=Sa(b,nb,h);
if (sa>sb) cout<<"A i B ikvivalentny" ;
else {sc=Sa(c,nc,t);cout<<"srednee arifmet massiva C ="<< sc;}
}
//---------------------------------------------------------------------------
void vvod ( float z[10], int & n)
{int i; cin>>n;
for (i=0; i<=n-1;i++)
cin>> z[i];
}
//---------------------------------------------------------------------------
float Sa (float z[10], int n, float x)
{int i, k; float s;
k=0; s=0;
for (i=0; i<=i-1;i++)
if (pow(z[i],2)>x) {s=s+z[i]; k++;}
if (k>0)s=s/k;
else cout <<"ochibka ";
return s;}
//---------------------------------------------------------------------------
Program kv_ur;
var a, b, c, d, x1,x2, x:real;
begin
read(a, b, c);
d:= sqr(b) - 4*a*c;
if d<0 then write('нет решений');
if d = 0 then
begin
x:= -b/(2*a); write('один корень: ',x:5:2)
end;
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
<span> x2:=(-b-sqrt(d))/(2*a);
</span> write('два корня: ', 'x1=',x1:5:2,'x2=',x2:5:2)
end
end.
Const N = 10;
var
mas: array [1..N] of integer;
i,x,y,z:integer;
begin
for i:=1 to 10 do
read(mas[i]);
x:=0;
y:=0;
z:=0;
for i:=1 to 10 do begin
if mas[i]>0 then
x:=x+1
else if mas[i]<0 then
y:=y+1
else
z:=z+1
end;
writeln('Положительных элементов: ',x);
writeln('Отрицательных элементов: ',y);
writeln('Нулевых элементов: ',z);
end.
11(вычитай 2)=9-2=7-2=5*3=15-2=13 это действия с числом изображ в виде графов (это только одна ветвь)
Ответ: порядок команд такой 11121