Регистрация
лунный3
20.06.2021 10:53
Информатика
Есть ответ 👍

1. Массив А вводится с клавиатуры. Найти произведение его элементов. Размер
произвольный.
2. Найти произведение четных эл-ов в массиве, заданном датчиком случайных чисел . Размер произвольный.
3. Массив А вводится с клавиатуры. Найти сумму его
элементов с нечетными номерами. Размер произвольный.

248
319
Посмотреть ответы 2

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

vladalogunova
vladalogunova
4,5(19 оценок)

1)

var

 d, i: integer;

 A: array[1..10] of integer;

begin

 d := 1;

 write('Введите элементы массива: ');

 for i := 1 to 10 do read(A[i]);

 for i := 1 to 10 do d := d * A[i];

 writeln('Произведение элементов: ' + d);

end.

2)

var

 d, i: integer;

 A: array[1..10] of integer;

begin

 d := 1;

 randomize();

 for i := 1 to 10 do A[i] := random(1,10);

 for i := 1 to 10 do begin

   if A[i] mod 2 = 0 then d := d * A[i];

 end;

 writeln('Произведение элементов: ' + d);

end.

3)

var

 d, i: integer;

 A: array[1..10] of integer;

begin

 d := 1;

 randomize();

 for i := 1 to 10 do A[i] := random(1,10);

 for i := 1 to 10 do begin

   if i mod 2 = 1 then d := d + A[i];

 end;

 writeln('Сумма элементов: ' + d);

end.

nastiarabadj
nastiarabadj
4,5(99 оценок)
Хозяин высыпает корм в миску, хозяин гладит собаку, собака ест корм, собака влияет хвостом. кассир берёт деньги, кассир отдаёт билет, зритель берёт билет, зритель идёт на представление. кошка бежит за мышью, кошка лакомится мышью, мышь убегает от кошки, мышь залезла в конорку. птица летит над землёю,птица сломала крыло,крыло птицы устало, крыло птицы  сломалось.

Популярно: Информатика