Составьте программу,которая формирует массив из 15 случайных целых цифр от -20 до 20 и чётные цифры делит на 2,а нечётные-умножает на 3
5-9 класс
|
На каком языке нужна программа?
Пример на 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.
Другие вопросы из категории
Num Lock
Caps Lock
F1
В текущем месяце бригада в каждый последующий день работы выпускала на три изделия больше, чем в предыдущий. В первый день было выпущено 42 изделия, что составило 67% дневной нормы. В месяце 26 рабочих дней. Сумеет ли бригада выполнить месячную норму?
Читайте также
неотрицательных извлекает квадратный корень.
и подсчитывает количество отрицательных элементов.
язык Pascal abc