Question

1. Правильно ли описан массив А? Если нет, то что надо изменить? Type myarray=Array[-10..n] Of Integer; Var A: myarray; 2. Что получится в результате выполнения программы? Program Variantl; Const n=7; Type myarray=Array[1..n] Of Integer; Var C: myarray; i: Byte; p: Integer; Begin p:=0; For i:=l To n Do Begin C[i]:=-50+Random(151); If C[i]>50 Then p:=p+C[i]; End; Writeln (p); Readln; End. 3. Дан массив целых чисел, состоящий из 20 элементов. Заполнить его с клавиатуры. Найти: сумму элементов, имеющих нечетное значение; и вывести индексы тех элементов, значения которых больше заданного числа А. 4. Определить, есть ли в данном массиве положительные элементы, кратные k (k вводить с клавиатуры).

Answer 1

Ответ:

ответ дан правильно если сравнить и приравниватся к математическим формулам

Answer 2

1. Массив А задан правильно. Это одномерный массив типа myarray, который содержит элементы типа integer и размерность от -10 до n.

2. При выполнении программы variantl будет выведено случайное число, которое представляет сумму элементов массива c, значение которых больше 50. Программа заполняет массив c случайными числами от -50 до 100, затем проходится по всем элементам массива и если элемент больше 50, то добавляет его значение к переменной p. В итоге значение p будет содержать сумму всех элементов больше 50.

3. В данном случае отсутствуют указания о значении А и о заполнении массива с клавиатуры, поэтому приведу пример решения задачи в общем виде:

var myArray: array[1..20] of integer; A: integer; sumOdd: integer; indices: array[1..20] of integer; indexCount: integer; i: integer; begin // заполнение массива с клавиатуры for i := 1 to 20 do begin write('Введите элемент ', i, ': '); readln(myArray[i]); end; // вычисление суммы элементов с нечетным значением sumOdd := 0; for i := 1 to 20 do begin if (myArray[i] mod 2 <> 0) then sumOdd := sumOdd + myArray[i]; end; // поиск индексов элементов, значение которых больше А write('Введите число А: '); readln(A); indexCount := 0; for i := 1 to 20 do begin if (myArray[i] > A) then begin indexCount := indexCount + 1; indices[indexCount] := i; end; end; // вывод результатов writeln('Сумма элементов с нечетным значением: ', sumOdd); writeln('Индексы элементов, значения которых больше А:'); for i := 1 to indexCount do begin writeln(indices[i]); end; readln; end.

4. Для определения наличия положительных элементов, кратных k, можно использовать следующий код:

var myArray: array[1..20] of integer; k: integer; hasPositiveMultiple: boolean; i: integer; begin // заполнение массива с клавиатуры for i := 1 to 20 do begin write('Введите элемент ', i, ': '); readln(myArray[i]); end; // ввод значения k write('Введите число k: '); readln(k); // проверка наличия положительных элементов, кратных k hasPositiveMultiple := false; for i := 1 to 20 do begin if (myArray[i] > 0) and (myArray[i] mod k = 0) then begin hasPositiveMultiple := true; break; end; end; // вывод результата if hasPositiveMultiple then writeln('В данном массиве есть положительные элементы, кратные ', k) else writeln('В данном массиве нет положительных элементов, кратных ', k); readln; end.