Question

Хоть с чем-то помогите ... 1. Для следующего фрагмента программы: program prog; uses crt; const a:array[1..8] of integer=(2,9,15,-1,6,14,5,-9); var i,p:integer; begin clrscr; p:=1; for i:=1 to 8 do if a[i] mod 5=0 then p:=p*a[i]; write('p= ,p'); readln end. a) определить результат выполнения b) сформулировать условие задачи c) составить блок-схему 2. Элементы массива А(20) – целые случайные числа в диапазоне от –10 до 50. Вывести сначала исходный массив, а затем все его отрицательные элементы не кратные числу 5. 3. Дан одномерный массив T(85). Заполнить его случайными целыми числами от –40 до 50 Найти сумму четных значений элементов и заменить найденной суммой четные значения элементов. Вывести на экран исходный и измененный и найденную сумму. 4. Используя подпрограмму (процедуру или функцию) поиска минимального из двух чисел вычислить значение D=min(x-21,5y+1)-min(x5 +2,y4-10)

Answer 1

№1
а) Результат выполнения: вывод p=75.
б) Условие: Вычислить произведение элементов массива A , кратных 5
в) См. вложение.

№2
//PascalABC.Net 3.2
begin
var a:=arrrandom (20, -10, 50); a.Println;
for var i:=0 to 19 do if (a[i] mod 5)<0 then print(a[i]);
end.

№3
begin
var t:=arrRandom(85, -40, 50);
var sum:=0;
for var i:=0 to 84 do if (t[i] mod 2)=0 then sum+=t[i];
t.Println;
for var i:=0 to 84 do if (t[i] mod 2)=0 then t[i]:=sum;
t.Println; write ('Сумма=', sum);
end.

№4
begin
var x:=readreal('Введите x =');
var y:=readreal('Введите y =');
print ('D =', min(x-21,5*y+1)-min(x*5 +2, y*4-10));
end.

Answer 2

1. Результат выполнения фрагмента программы

Для данного фрагмента программы: ```pascal program prog; uses crt; const a: array[1..8] of integer = (2, 9, 15, -1, 6, 14, 5, -9); var i, p: integer; begin clrscr; p := 1; for i := 1 to 8 do if a[i] mod 5 = 0 then p := p * a[i]; write('p=', p); readln; end. ```

a) Результат выполнения: Результат выполнения фрагмента программы можно определить следующим образом: - Исходный массив: a = (2, 9, 15, -1, 6, 14, 5, -9) - Выполняется умножение всех элементов массива, кратных 5 - Результат умножения будет равен 15, если учитывать только элементы, кратные 5

b) Условие задачи: Условие задачи можно сформулировать следующим образом: - Необходимо умножить все элементы массива, которые кратны 5, и вывести результат.

c) Блок-схема: Блок-схема данного фрагмента программы будет содержать блоки для инициализации массива, цикла для проверки кратности 5 и умножения соответствующих элементов, а также блок для вывода результата.

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

Для элементов массива A(20), содержащего целые случайные числа в диапазоне от -10 до 50, необходимо выполнить следующие действия:

a) Вывод исходного массива: Сначала необходимо вывести исходный массив A(20), содержащий целые случайные числа в диапазоне от -10 до 50.

b) Вывод отрицательных элементов, не кратных 5: Затем следует вывести все отрицательные элементы массива, которые не кратны числу 5.

3. Сумма четных значений элементов массива T(85)

Для одномерного массива T(85), заполненного случайными целыми числами от -40 до 50, необходимо выполнить следующие действия:

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

4. Вычисление значения выражения с использованием подпрограммы

Для вычисления значения выражения D=min(x-21,5y+1)-min(x5+2,y4-10) с использованием подпрограммы (процедуры или функции) поиска минимального из двух чисел, необходимо выполнить следующие действия: - Использовать подпрограмму для вычисления минимального из двух чисел. - Вычислить значение выражения D с использованием найденных минимумов.

Пожалуйста, дайте мне знать, если вам нужна дополнительная информация или объяснение по какому-либо из пунктов!