Безотлагательно!!1) а) Составьте программку, которая заполняет массив a[1..10] случайными целыми

Question

Безотлагательно!!1) а) Составьте программку, которая заполняет массив a[1..10] случайными целыми

Безотлагательно!!
1) а) Составьте программку, которая наполняет массив a[1..10] случайными целыми числами в спектре от 1 до 10 и находит сумму частей с чётными значениями и количество частей с нечётными значениями
б) Составьте программку, которая наполняет массив b[1..8] случайными целыми числами в диапазоне от 1 до 10 и обретает творенье частей с нечётными значениями и количество элементов с чётными значениями
2) а) Составьте программу, которая наполняет массив a[1..10] случайными целыми числами в спектре от 1 до 10, затем элементы с чётными индексами удваивает, а с нечётным утраивает. Выведите на экран начальный и приобретенный массивы
б) Составьте программку, которая наполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10, потом изменяет знак частей с чётными индексами на обратный. Выведите начальный и приобретенный массивы.

Задать свой вопрос

Альжигидова Агата
Информатика
2019-04-08 23:24:33
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Помогите решить физику, пожалуйста (19 номер, необходимо именно решение)Чему одинакова

Помогите пожалуйста раскрыть скобки в алгебраических выражениях5(2+а)=

Энергия световых лучей, проникших в глаз, вызывает сердитое возбуждение 1) в

Put the sentences in the active voice:1.Tye fish was eaten by

укажи вариант где призаписи слова нужно использовать буковку й

Решите уравнение 1) 2x+4(x-2)=5-4x

Помогите пожалуйста! Очень безотлагательно!)даны графики функций у = 3х+5 и у

ОБЖ,8 класс, помогите пожалуйста!

Самолет летел на вышине 5 км, температура воздуха за его бортом

Для каких организмов ГЭС является препятствием и к чему препятствует?

Кирилл Покасанов · Answer 1 · 2019-04-08 23:29:39+3:00

Кирилл Покасанов 2019-04-08 23:29:39

Текста много. Потому вставлю фото

Василиса Сигалева 2019-04-08 23:37:22

//PascalABC (версия 3.4.2, сборка 1889 от 04.12.2018)// 1auses Arrays;var sum, count : integer;begin var a := CreateRandomIntegerArray(10,1,10); sum := 0; count := 0; foreach var x in a do if x mod 2 = 0 then sum += x else count += 1; writeln; writeln('Массив: ', a); writeln('Сумма чётных частей: ', sum); writeln('Количество нечетных элементов: ', count);end.

Наталья 2019-04-08 23:42:58

//PascalABC (версия 3.4.2, сборка 1889 от 04.12.2018)// 1бuses Arrays;var mul, count : integer;begin var a := CreateRandomIntegerArray(8,1,10); mul := 1; count := 0; foreach var x in a do if x mod 2 = 0 then count += 1 else mul *= x; writeln; writeln('Массив: ', a); writeln('Творение нечётных частей: ', mul); writeln('Количество чётных частей: ', count);end.

Евгений Бигиашвили 2019-04-08 23:48:54

//PascalABC (версия 3.4.2, сборка 1889 от 04.12.2018)// 2auses Arrays;begin var a := CreateRandomIntegerArray(10,1,10); writeln; writeln('Начальный массив: ', a); foreach var x in range(1,10) do if a[x-1] mod 2 = 0 then a[x-1] *= 2 else a[x-1] *= 3; writeln('Результат: ', a);end.

Анна Чернотченкова 2019-04-08 23:53:03

//PascalABC (версия 3.4.2, сборка 1889 от 04.12.2018)// 2бuses Arrays;begin var a := CreateRandomIntegerArray(10,1,10); writeln; writeln('Начальный массив: ', a); foreach var x in range(1,10) do if x mod 2 = 0 then a[x-1] := -a[x-1]; writeln('Итог: ', a);end.

О проекте

Безотлагательно!!1) а) Составьте программку, которая заполняет массив a[1..10] случайными целыми

Добро пожаловать!