Составьте программу,которая формирует массив из 15 случайных целых цифр от -20 до 20 и чётные цифры делит на 2,а нечётные-умножает на 3
5-9 класс
|
Axi884
28 окт. 2014 г., 2:33:00 (9 лет назад)
пламенныйогонь
28 окт. 2014 г., 4:44:17 (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.
Ответить
Другие вопросы из категории
Читайте также
Составьте программу, которая формирует массив из пятнадцати случайных целых чисел от -20 до 20 и отрицательные числа возводит в квадрат, а из
неотрицательных извлекает квадратный корень.
составьте программу , которая формирует массив из шестнадцати случайных целых чисел от -20 до 20
и подсчитывает количество отрицательных элементов.
язык Pascal abc
Вы находитесь на странице вопроса "Составьте программу,которая формирует массив из 15 случайных целых цифр от -20 до 20 и чётные цифры делит на 2,а нечётные-умножает на 3", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.