"составьте программу которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 затем элементы с четными индексами удваивает а элементы с нечетными индексами утраивает. выведите на экран исходный и полученный массивы.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

natashavoropaeva

21.07.2022 22:09

Тест по теме «базы данных. субд» (вариант 2) 1. тип данных, предназначенный для хранения больших текстов, называется: a. поле объекта ole; b. поле мемо; c. текстовый; d. счётчик....

vitaliygrg

18.07.2022 02:03

Какое значение будет иметь переменная а после выполнения рагмента программы: а: =1; for n: = 1 to 4 do а: =а+2-n; if a 0 then a: =a+10 writeln (a)...

Daman1777

18.07.2022 02:03

Определите , что будет напечатано в результате выполнения программы , написаной ниже на разных языках программирования: var n, s : integer; begin n: =14; s: =0; write n =18...

РатмирБейсенбаев

06.12.2020 21:03

Из двух чисел выбрать наименьшее если оно отрицательное, то возвести в квадрат, в противном случае извлеч квадратный корень....

ВкусноеМясо

10.05.2023 03:19

Дана квадратная матрица порядка m. заменить нулями элементы матрицы, лежащие выше побочной диагонали.как делает на delhpi...

Нина20071

10.05.2023 03:19

Дана функция f(x)=3x^2+4x-5. вычислить f(4)+f(-5). решить в паскале...

kkarinanexK

30.05.2021 03:54

Много ! решить , по программированию (pascal abc)сборник златопольского 1.44 даны стороны прямоугольника,найти его периметр и длину диагонали...

Djdjjdjdjdjddjjx

15.05.2023 06:58

Данные числа из различных систем счислений перевести в двоичную систему: а) 325(8) б) fa1(16) в) 89(10)...

МаркЛеткеман

15.05.2023 06:58

Составить программу,которая запрашивает ввод трех значений температуры и проаеряет,есть ли среди них температура таяния льда?...

настя7566

15.05.2023 06:58

=степень(a1; (a3-b2)) что это значит в экселе?...

Ответ:

VladimirVelocity

04.08.2020 07:51

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";

ПЕР
a, b: РЯД 10 ИЗ ЦЕЛ;
сч: ЦЕЛ;

УКАЗ
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 9)) + 1
КОН;
ОТ сч := 0 ДО РАЗМЕР(b) - 1 ВЫП
ЕСЛИ ЧЕТ(сч) ТО
b[сч] := a[сч] * 2
ИНАЧЕ
b[сч] := a[сч] * 3
КОН
КОН;
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
Вывод.ЧЦел("%d ", a[сч], 0, 0, 0)
КОН;
Вывод.Цепь("^");
ОТ сч := 0 ДО РАЗМЕР(b) - 1 ВЫП
Вывод.ЧЦел("%d ", b[сч], 0, 0, 0)
КОН

КОН Задание.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку