Question

Найти сумму элементов массива с четными номерами, элементы которого заданы датчиком случайных чисел на интервале [-17, 55].

Answer 1

Ответ:

program z1;

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

i,s:integer;

begin

s:=0;

randomize;

write('Массив: ');

for i:= 1 to 10 do  

begin  

a[i]:= random(73)-17;  

write(a[i]:4);  

if i mod 2 = 0 then s:=s+a[i]  

end;

writeln;

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

end.

Объяснение:

Цикл для:

1) задаём элемент

2) выводим его на экран

3) проверяем чётный ли номер элемента, если да, то считаем сумму

Вывод суммы

Answer 2

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

Вот шаги, которые вам нужно выполнить:

1. Создайте массив с заданным размером. В Pascal вы можете использовать тип `array` для создания массива. Например, `var a: array[1..100] of integer;` создаст массив `a` размером 100, который может хранить целые числа .

2. Заполните массив случайными числами в заданном диапазоне. В Pascal вы можете использовать функцию `random` для генерации случайных чисел. Например, `a[i] := random(77) - 43;` заполнит элемент массива `a` на позиции `i` случайным числом в диапазоне от -43 до 33 .

3. Пройдитесь по массиву и сложите все элементы с четными индексами. Вы можете использовать цикл `for` для обхода массива и оператор `mod` для проверки, является ли индекс четным. Например, `if (i mod 2 = 0) then sum := sum + a[i];` сложит все элементы с четными индексами в переменную `sum` .

Вот пример кода на Pascal, который выполняет все эти шаги:

program SumEvenIndices;
var
 a: array[1..100] of integer;
 i, sum: integer;
begin
 randomize; // Инициализируйте генератор случайных чисел
 sum := 0;
 for i := 1 to 100 do
 begin
   a[i] := random(77) - 43; // Заполните массив случайными числами
   if (i mod 2 = 0) then sum := sum + a[i]; // Сложите все элементы с четными индексами
 end;
 writeln('Сумма элементов с четными индексами: ', sum);
end.

Обратите внимание, что этот код использует `randomize` для инициализации генератора случайных чисел. Это необходимо, чтобы генератор мог создавать разные случайные числа при каждом запуске программы.