Const
n=10;var
a:array[1..n]of integer;
i,max1,max2,im1,im2:integer;
begin for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i]:4);
end;
max1:=a[1];im1:=1;
for i:=1 to n do
if a[i]>max1 then
begin
max1:=a[i];
im1:=i;
end;
for i:=1 to n do
if (a[i]<=max1)and(i<>im1)and(a[i]>max2)then
begin
max2:=a[i];
im2:=i;
end;
writeln;
writeln('i: ',im1,' max1: ', max1,' i: ',im2,' max2: ',max2);
<span>end.</span>
А)а*х*х+b*x+c;
б)v+(a*t*t/2);
в)1/2(а+б)*h;
*-это знак умножения .Но записывать надо как*только посередине.и еще г) и д) я еще не проходила.
Надпись
⇒..........................................
С++.
я напишу на плюсах, просто вместо cout и cin подставишь printf и scanf
#include <iostream>
using namespace std;
void main()
{
int n,p,sum=0;
cin >> n;
for (;n!=0;) {
p = n%10;
sum+=p;
n/=10;
}
cout << sum;
cin.get();
cin.get();
}