Program func;
const
H = 0.2;
var
i, y, sum: real;
function Func(x:real):real;
begin
Func := x * Cos( (2 * x) );
end;
begin
i := -1;
sum := 0;
while i<=1 do
begin
y := Func(i);
if y>0 then
sum := sum + y;
i := i + H;
end;
end.
<span>var
</span>
<span /><span><span>a: array [</span>1..10<span>] of </span>integer;</span>
<span /><span>i : integer;</span>
<span /><span>
begin</span>
<span>
randomize;
</span>
<span /><span><span>for i:=</span>1 to 10 do </span><span>A[i]:=Random(15);</span>
<span /><span><span> for i:=</span>1 to 10 do </span><span><span>if A[i]=</span>5 then</span>
<span /><span>writeln('да то что надо ',A[i])</span><span />
<span>else
</span><span>writeln('ошибка');</span><span>
readln ;
</span>
<span><span>end.</span></span>
Ответ:
var a:array[1..5]of integer;
i,m:integer;
begin
m:=0;
write('Массив: ');
for i:= 1 to 5 do
begin
a[i]:= random(21)-10;
write(a[i]:4);
if (a[i]>0) and (i mod 2 = 0) then m:=a[i]
end;
writeln;
for i:= 1 to 5 do
if (a[i]>0) and (i mod 2 = 0)and (a[i] < m) then m:=a[i];
if m=0 then writeln ('В массиве нет положительных элементов среди элементов с чётными номерами')
else writeln('Наименьший положительный элемент среди элементов с чётными номерами равен ',m)
end.
Если покрасить надо весь кабинет (потолок, пол и стены)
Если на Pascal:
var a, b, c, d, e, f, s: integer;
begin
readln(a);
readln(b);
readln(c);
readln(d);
s:=2*(a*b)+2*(a*c)+2*(b*c);
e:=s*d;
f:=5*e;
writeln(f);
end.
Если на Python:
import sys
a=int(sys.stdin.readline())
b=int(sys.stdin.readline())
c=int(sys.stdin.readline())
d=int(sys.stdin.readline())
s=2*(a*b)+2*(a*c)+2*(b*c)
e=s*d
f=5*e
print(f)