в ячейку B3 введите формулу =($A3*10+B$2)^2
Const
n=10;
var i,sum:integer;
mass:array[1..n] of integer;
begin
for i:=1 to n do
begin
mass[i]:=random(80)-5;
write('mass[',i,']= ',mass[i]);
writeln;
if mass[i]>0 then sum:=sum+mass[i];
end;
writeln('Сумма положительных элементов массива равна ',sum);
end.
<span>
</span>
А)Живлення.Б)РОбчий стил Винчестер малюнок кишик Б)Стилус гучномовци.Г)микрофон плеер
1.
var
a, b, c, s, p: integer;
begin
readln(a, b, c);
s:=a+b+c;
p:=a*b*c;
writeln(a, '+', b, '+', c, '=', s);
writeln(a, '*', b, '*', c, '=', p);
<span>end.
2.
</span>var
a, b, c, s, p: integer;
sr: real;
begin
readln(a, b, c);
s:=a+b+c;
p:=a*b*c;
sr := s/3;
writeln(a, '+', b, '+', c, '=', s);
writeln(a, '*', b, '*', c, '=', p);
writeln('(', a, '+', b, '+', c, ')/3=', sr);
<span>end.</span>