на каком языке нужна программа? пример на 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.
Ответ дал: Гость
var
i,j,k: integer;
a,b,c: array [1..30] of integer;
begin
randomize;
j: =0;
k: =0;
for i: =1 to 30 do
begin
a[i]: =random(80)-30;
if a[i] mod 2 =0 then
begin
j: =j+1;
b[j]: =a[i]
end
end;
for i: =30 downto 1 do
if a[i]< 0 then
begin
k: =k+1;
c[k]: =a[i];
end;
for i: =1 to j do
writeln(b[i]);
for i: =1 to k do
writeln(c[i]);
end.
Ответ дал: Гость
program ssd;
uses crt,graph;
var d,m: integer;
begin
clrscr;
initgraph(d,m,'');
arc(200,200,360,180,50);
line(150,200,250,200);
readkey; closegraph;
end.
Ответ дал: Гость
на пиксель приходится 512*8/32²=4 бита. 2^4=16 цветов.
Популярные вопросы