Найдите произведение элементов массива с чётными номерами - Pascal ABC

  1. Тема: Одномерные числовые массивы. Указание: Заполните одномерный числовой массив D(12) случайными целыми числами в интервале [-10; 15]. Выведите значения элементов массива сначала в столбик, а затем в строку, причем на каждый элемент отведите 4 позиции. Ответ каждой задачи следует выводить с новой строки и с пояснительным текстом. Кроме того, следует каждый раз производить вывод массива на экран, если в нём произошли изменения: перестановка, замена, изменение значения элементов и т.д. Задача 1. Найдите произведение элементов массива с чётными номерами. Задача 2. Найдите количество ненулевых элементов массива. Задача 3. Найдите среднее арифметическое элементов массива.


textual

Код к задаче: «Найдите произведение элементов массива с чётными номерами - Pascal ABC»

program ex;
type vector=array[1..12]of integer;
var a:vector;
    i,p,k,s:integer;
    sred:real;
    
begin
writeln('массив(в столбец): ');
p:=1;k:=0;s:=0;
for i:=1 to 12 do
begin
a[i]:=Random(26)-10;
writeln(a[i]:4);
s:=s+a[i];
if (i mod 2 = 0)then p:=p*a[i];
if (a[i]<>0) then k:=k+1;
end;
 
writeln();
write('массив(в строку): ');
for i:=1 to 12 do
write(a[i]:4);
sred:=s/12;
writeln();
writeln('произведение элементов массива с четными номерами: ',p);
writeln('количество ненулевых элементов массива: ',k);
writeln('среднее арифметическое элементво массива: ',sred);
end.

СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 4.400 из 5



Похожие ответы
  1. Скажу честно и прямо, сделайте за меня. Будем говорить, что число a лучше числа b, если сумма цифр a больше суммы цифр числа b, а в случае равенства сумм их цифр, если число a меньше числа b. Например, число 124 лучше числа 123, так как у первого из них сумма цифр равна семи, а у второго — шести. Также, число 3 лучше числа 111, так как у них равны суммы цифр, но первое из них меньше. Дано число n. Найдите такой его делитель d (само число n и единица считаются делителями числа n), что любой другой делитель c числа n лучше, чем d. Входные данные Первая строка входного файла INPUT.TXT содержит целое число n (1 ≤ n ≤ 105000). Выходные данные В выходной файл OUTPUT.TXT выведите ответ на задачу. Примеры INPUT.TXT 10 OUTPUT.TXT 10 ----------------------- INPUT.TXT 239 OUTPUT.TXT 1 P.S. знаю подобное есть в инете, но оно не совсем правильно работает

  1. Введите массив из 5 элементов с клавиатуры и найдите количество элементов , запись которых в 2с.с-палиндром(например,10101 в двоичной=21)

  1. на натуральном отрезке [a,b] найдите и выведите число N с наибольшей суммой своих делителей Через Repeat или While

  1. Определить произведение элементов в тех столбцах, которые не содержат элементов кратных 5.

  1. Найти произведение элементов матрицы, находящихся ниже главной диагонали. Имя массива-R. Размер массива: 4,4. Тип данных - действительный. Заполнена матрица должна быть рандомно (randomize) числами от 0 до 50.

  1. Решите с помощью блок схемы или паскаля Составьте алгоритм для решения следующей задачи: Среди N произвольных вещественных чисел найдите количество не равных нулю.

  1. В двумерном массиве вычислить произведение элементов в К-столбце

  1. Найти произведение вычисленных значений функции,целая часть которых кратна 2 y=9e^-0,5x * Cos^2 (PIx-45 градусов) .Помогите пожалуйста

  1. Дано натуральное число: -найти произведение цифр числа; -верно ли,что в данном числе нет данной цифры А(А вводится с клавиатуры)

  1. 1)В заданном множестве точек на плоскости найдите четыре точки, которые могут служить вершинами квадрата.