Вопрос задан 11.07.2023 в 15:57. Предмет Информатика. Спрашивает Абилгазыкызы Арайлым.

1. Массив А размером 12 заполняется случайными целыми числами из интервала (-100,50). Найти

произведение положительных элементов массива. 2.Массив А размером 20 заполняется целыми числами с клавиатуры. Все нечётные элементы массива возвести в квадрат. 3. В массиве С размером 9, заполненном с клавиатуры различными числами найти максимальный элемент и его адрес.
0 0
Перейти к ответам

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

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Истомина Анастасия.

Ответ:

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.

0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Для решения каждой из задач нам понадобится код на языке программирования. Давайте рассмотрим решение для каждой задачи по порядку.

  1. Найти произведение положительных элементов массива:
python
import random # Создаем массив размером 12 и заполняем его случайными целыми числами из интервала (-100, 50) A = [random.randint(-100, 49) for _ in range(12)] # Находим произведение положительных элементов массива product = 1 for num in A: if num > 0: product *= num print("Массив A:", A) print("Произведение положительных элементов массива A:", product)
  1. Все нечетные элементы массива возвести в квадрат:
python
# Создаем массив размером 20 и заполняем его целыми числами с клавиатуры A = [] for i in range(20): num = int(input("Введите целое число для элемента {} массива A: ".format(i+1))) A.append(num) # Возводим в квадрат все нечетные элементы массива for i in range(len(A)): if A[i] % 2 != 0: A[i] = A[i] ** 2 print("Массив A после возведения нечетных элементов в квадрат:", A)
  1. Найти максимальный элемент и его адрес в массиве C:
python
# Создаем массив размером 9 и заполняем его с клавиатуры различными числами C = [] for i in range(9): num = int(input("Введите число для элемента {} массива C: ".format(i+1))) C.append(num) # Находим максимальный элемент и его адрес max_element = C[0] max_index = 0 for i in range(1, len(C)): if C[i] > max_element: max_element = C[i] max_index = i print("Массив C:", C) print("Максимальный элемент массива C:", max_element) print("Адрес максимального элемента в массиве C:", max_index)

Пожалуйста, скопируйте каждый код в среду программирования (например, Python) и выполните, чтобы получить результаты для каждой задачи.

0 0

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

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

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