составить программу, которая сформировывает массив из 15 случайных чисел принадлежащих интервалу
составить программу, которая сформировывает массив из 15 случайных чисел принадлежащих интервалу [3,33]. Нечетные числа сменяет на 1, а остальные увеличивает на 3. На экран выводятся начальные и перевоплощенные значения
Задать свой вопросvar
a: array [1..15] of integer; //Массив из 15 целых чисел
i: integer;
begin
randomize;
write('Начальный массив: ');
for i:= 1 to 15 do Наполняем массив случайными целыми числами в интервале [3; 33] и распечатываем его
begin
a[i]:= random(31) + 3;
write(a[i], ' ');
end;
writeln;
write('Преобразованный массив: ');
for i:= 1 to 15 do Если элемент нечетный, то сменяем его на 1, по другому увеличивам его на 3 и распечатываем приобретенный массив
begin
if a[i] mod 2 = 0 then a[i]:= 1
else a[i]:= a[i] + 3;
write(a[i], ' ');
end;
writeln; Переход на новейшую строчку, чтоб при следующем запуске программки информация выводилась с новейшей строки
end.
Если все верно, отметь решение как лучшее)
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.