Бейсик Python
FOR n = 1 TO 100
A(n) = n - 10
NEXT n
FOR n = 1 TO 100
B(n) = A(n)*n;
NEXT n
for n in range(1, 101):
A[n] = n - 10
for n in range(1, 101):
B[n] = A[n]*n
Паскаль Алгоритмический язык
for n : = 1 to 100
do A[n] : = n - 10;
for n : = 1 to 100 do begin
B[n]:= A[n]*n;
end;
n от 1 до 100
A[n] : = n - 10
n от 1 до 100
B[n]:=A[n]*n
for (n = 1; n <= 100; n++) {
A[n] = n - 10;
for (n = 1; n <= 100; n++) {
B[n] = A[n]*n;
На каком языке нужно? Если на с++ то
#include
using namespace std;
int main ()
{ int a,b,c,d;
cin >> a >>b>>c>>d;
a=(a+b)*10;
c=c*d;
if(a>c){
cout << a;
}
else cout << c;
}
Ответ:0.1011*10*(-100)=101,1
Объяснение:
1)0,1011*10=1,011
2)1,011*(-100)=101,1
* это умножение
Var
a: array [1..4] of real;
begin
readln(a[1], a[2], a[3]);
a[4] := (a[1] + a[2] + a[3]) / 2;
writeln(sqrt(a[4] * (a[4] - a[1]) * (a[4] - a[2]) * (a[4] - a[3])));
<span>end.</span>
Под локальным максимумом, скорее всего, имеется в виду число, большее
чем оба его соседа, за исключением случая, когда соседом справа является
0. В таком случае достаточно однократно пройтись по всем числам, запоминая минимальное из расстояний между новым и предыдущим обнаруженными максимумами.
Программа (язык Pascal ABC.Net)
var i1,i2,i3:integer;
i:integer;
curr,minr,lastmax:integer;
begin
readln(i1,i2);
i:=2;
minr:=1000000;
repeat
readln(i3);
if (i2>i1) and (i2>i3) and (i3<>0) then begin
curr:=i-lastmax;
if curr<minr then minr:=curr;
lastmax:=i;
end;
i1:=i2;
i2:=i3;
i+=1;
until i2=0;
if minr=1000000 then writeln(0) else writeln(minr); {стоило бы добавить булевую переменную в качестве флага - был ли хоть один max, но вряд ли расстояние между ними превысит миллион :-}
end.