Составьте программу,которая формирует массив из 15 случайных целых цифр от -20 до 20 и чётные цифры делит на 2,а нечётные-умножает на 3

1

Ответы и объяснения

  • Участник Знаний
2011-11-20T12:35:27+04:00

На каком языке нужна программа? 
Пример на 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.