На каком языке нужна программа?
Пример на Paskal:
program zadacha;
var massiv: array [1..15] of integer; i:byte; massiv2:array [1..15] of real;
begin
randomize;
write('Isxodnij massiv: ');
for i:=1 to 15 do
begin
massiv:=random(41)-20;
write(massiv,' ');
end;
writeln;
writeln('Massiv posle preobrazovanij: ');
for i:=1 to 15 do
begin
if massiv=0 then massiv2:=massiv
else
if massiv mod 5 = 0 then massiv2:=massiv*2
else begin
massiv2:=massiv;
massiv2:=massiv2/2;
end;
write(massiv2:0:1,' ');
end;
readln;
end.
program ttt;
var i,j,a,b,c:integer;
begin
readln(a);
readln(b);
readln(c);
if (a>b) then
if (a>c) then
begin
write(a);
if (b>c) then begin write(b);write(c) end; else begin write(c); write(b);end
end; else
if (b>c) then begin write (b); if(a>c)then begin write(a); write(c);end; else begin write(c); write(a);end; end;
else begin write(c); if(a>b) then begin write(a);write(b)end; else begin write(b); write(a); end;end;
end;
неоптимальный, но понятный алгоритм.
а в другом случае можноо оптимизировать.. как- подумай -;)
2)
W:=(2*x-y)/(6.5*y+3*x*y+y*y);
3)
Program qq;
var a: integer;
x,c,b: real;
begin
a:=7;
b:=3.2;
c:=a+b;
writeln('summa=',c);
c:=c/2;
x:=a-c;
writeln('x=',x);
end.
{вывод:
summa=10.2
x=1.9}