Найти сумму элементов массива, имеющих нечетное значение

@Dorian_681 · Регистрация: 18.12.2016

Студворк — интернет-сервис помощи студентам

Дан массив целых чисел заполненный случайным образом, состоящий из 20 элементов. Найти:
-сумму элементов, имеющих нечетное значение;
-вывести индексы тех элементов, значения которых больше заданного с клавиатуры числа А.
Помогите решить, пожалуйста!

@Tosse · 18.12.2016, 20:18

Pascal

const
n = 20;
type
vector=array[1..n] of integer;
var z:vector;
i,sum,a: integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
    begin
    z[i]:=random(10);
    write(z[i]:2);
    end;
writeln;
sum:=0;
for i:=1 to n do
    if z[i] mod 2 = 1 then
        sum:=sum+z[i];
writeln('Сумма нечетных элементов:  ', sum);
writeln('Введите число:');
readln(a);
writeln('Индексы элементов больше числа ',a);
for i:=1 to n do
    if z[i] > a then
        writeln(i:3);
end.

@Dorian_681 0 / 0 / 0 Регистрация: 18.12.2016 Сообщений: 1
		1
	Найти сумму элементов массива, имеющих нечетное значение 18.12.2016, 11:26. Показов 6383. Ответов 1 Метки нет (Все метки) Дан массив целых чисел заполненный случайным образом, состоящий из 20 элементов. Найти: -сумму элементов, имеющих нечетное значение; -вывести индексы тех элементов, значения которых больше заданного с клавиатуры числа А. Помогите решить, пожалуйста! 0

	18.12.2016, 20:18

Опции темы

Найти сумму элементов массива, имеющих нечетное значение

Решение