adik200376

11.01.2022 01:07

Информатика

Есть ответ 👍

1. Массив А размером 12 заполняется случайными целыми числами из интервала (-100,50). Найти произведение положительных элементов массива.
2.Массив А размером 20 заполняется целыми числами с клавиатуры. Все нечётные элементы массива возвести в квадрат.
3. В массиве С размером 9, заполненном с клавиатуры различными числами найти максимальный элемент и его адрес.

252

326

Посмотреть ответы 3

Ответы на вопрос:

samigyllin

Информатика

4,5(44 оценок)

Сумма цифр массива

Найти сумму всех цифр целочисленного массива. Например, если дан массив [12, 104, 81], то сумма всех его цифр будет равна 1 + 2 + 1 + 0 + 4 + 8 + 1 = 17.

Найти сумму элементов между минимальным и максимальным элементами массива

В одномерном массиве найти сумму элементов, находящихся между минимальным и максимальным элементами. Сами минимальный и максимальный элементы в сумму не включать.

Среднее арифметическое положительных элементов массива

Найти среднее арифметическое положительных элементов линейного массива.

Максимальный отрицательный элемент массива

В массиве найти максимальный отрицательный элемент. Вывести на экран его значение и позицию в массиве.

Число, чаще всего встречающееся в массиве

Определить, какое число в массиве встречается чаще всего.

Поменять местами минимальный и максимальный элементы

В массиве случайных целых чисел поменять местами минимальный и максимальный элементы.

Сдвиг массива

Сдвинуть элементы массива в указанном направлении (влево или вправо) и на указанное число шагов. Освободившиеся ячейки заполнить нулями. Выводить массив после каждого шага.

Вывести неповторяющиеся элементы массива

В массиве найти элементы, которые в нем встречаются только один раз, и вывести их на экран. То есть найти и вывести уникальные элементы массива.

Реверс массива

Переставить элементы заданного массива в обратном порядке, то есть произвести реверс массива.

Найти наибольший элемент и его порядковый номер в массиве

Заполнить одномерный массив случайными числами. Найти и вывести на экран наибольший его элемент и порядковый номер этого элемента.

Сколько элементов массива больше по модулю максимального

Создать массив из 20 элементов в диапазоне значений от -15 до 14 включительно. Определить количество элементов по модулю больших, чем максимальный.

Удаление отрицательных элементов массива

Заполнить массив случайными положительными и отрицательными целыми числами. Вывести его на экран. Удалить из массива все отрицательные элементы и снова вывести.

Определить индексы четных элементов массива

Во втором массиве сохранить индексы четных элементов первого массива. Например, если дан массив со значениями 8, 3, 15, 6, 4, 2, то во второй массив надо заполнить значениями 1, 4, 5, 6 (или 0, 3, 4, 5 - если индексация начинается с нуля), т.к. именно в этих позициях первого массива стоят четные числа.

Найти максимальный по модулю элемент в массиве с уникальными по модулю значениями

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

iragafieva

Информатика

4,8(100 оценок)

Const

n = 12;

var

i, p: integer;

a: array[1..n] of integer;

begin

p := 1;

for i := 1 to n do

begin

a[i] := random(150) - 100;

write(a[i], ' ');

if a[i] > 0 then p := p * a[i];

end;

writeln;

writeln('P = ', p);

end.

2)uses crt;

var a:array [1..10] of integer;

i:integer;

begin

clrscr;

randomize;

{генерируем и выводим новый массив}

for i:=1 to 10 do

begin

a[i]:=random(9)+1;

write(a[i]:3);

end;

writeln;

{в цикле проверяем если счетчик i делится на 2 ( признак четности) то либо возводим в степень либо удваиваем}

for i:=1 to 10 do

begin

if (i mod 2=0 ) then a[i]:=a[i]*a[i]

else a[i]:=a[i]*2;

end;

{выводим конечный массив}

for i:=1 to 10 do

write(a[i]:3);

readkey;

end.

3)var arr:array[1..20] of integer;

max,q:integer;

begin

writeln ('ARRAY: ');

for q:=1 to 20 do

begin

arr[q]:=random(80);

write (arr[q]:3);

end;

max:=arr[1];

for q:=2 to 20 do

if arr[q]>max then max:=arr[q];

writeln;

writeln('MAX = ',max);

end.

ekhvalebo

Информатика

4,7(35 оценок)

Объяснение:

потому что полчаса решал

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

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

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

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