Question

1.Найти сумму 3-го и 10-го элементов массива A:array [1...10] of real 2.Найти и вывести на экран сумму элементов массива из 10 чисел , кратных 3 . Массив заполняется случайными числами.

Answer 1

var

mas:array[1..10]of real;

i:integer;

s,s1:real;

begin

s:=0;

s1:=0;

writeln('Элементы массива:');

for i:=1 to 10 do

begin

mas[i]:=Random(10)+1;

write(mas[i],' ');

if(Round(mas[i])mod 3=0) then s1:=s1+mas[i];

end;

s:=s+mas[1]+mas[10];

writeln();

writeln('Сумма элементов массива кратных 3-ем равна: ',s1);

writeln('Сумма 1 и 10 элементов массива равна: ',s);

end.

Answer 2

1. Для нахождения суммы 3-го и 10-го элементов массива нужно выполнить следующие шаги: - Объявить и инициализировать массив a размером 10 элементов со значениями [1...10]; - Найти сумму 3-го и 10-го элементов с помощью индексации массива. Для этого нужно сложить значения массива a[3] и a[10]; - Вывести полученную сумму на экран.

2. Для нахождения суммы элементов массива из 10 чисел, кратных 3, нужно выполнить следующие шаги: - Объявить и инициализировать массив a размером 10 элементов случайными числами; - Объявить переменную sum и присвоить ей начальное значение 0; - Проитерировать массив a с помощью цикла, проверяя каждый элемент на кратность 3 с помощью оператора % (остаток от деления на 3). Если элемент кратен 3, то добавить его к переменной sum; - Вывести значение переменной sum на экран.

Пример кода на языке программирования Pascal:

1. Нахождение суммы 3-го и 10-го элементов массива: ```pascal program SumOfArrayElements; var a: array [1..10] of real; sum: real; begin a[1] := 1; a[2] := 2; a[3] := 3; a[4] := 4; a[5] := 5; a[6] := 6; a[7] := 7; a[8] := 8; a[9] := 9; a[10] := 10; sum := a[3] + a[10]; writeln('Сумма 3-го и 10-го элементов массива: ', sum); end. ```

2. Нахождение и вывод на экран суммы элементов массива из 10 чисел, кратных 3: ```pascal program SumOfElementsDivisibleByThree; var a: array [1..10] of integer; sum: integer; i: integer; begin randomize; for i := 1 to 10 do begin a[i] := random(100); // заполнение массива случайными числами от 0 до 99 end; sum := 0; // начальное значение суммы for i := 1 to 10 do begin if a[i] mod 3 = 0 then // проверка на кратность 3 begin sum := sum + a[i]; // добавление к переменной sum end; end; writeln('Сумма элементов массива, кратных 3: ', sum); end. ```

В данных примерах мы использовали язык программирования Pascal для решения задач. Эти же алгоритмы можно реализовать на других языках программирования, таких как Python, Java или C++.