Дан массив целых чисел из 10 элементов.
Заполните клавиатуру.
найти: а) сумму элементов,имеющих нечетное значение
б) вывести индексы (номера) тех элементов,значение которых больше заданного числа
в) определить есть ли в данном массиве положительные кратные данному числу
Всё таки есть сомнение нужна сумма нечётных элементов массива или сумма элементов массива с нечётными индексами?
В данной прграмме подсчитывается сумма нечётных элементов массива
Если же нужно второе то строку отмеченную {*} следует заменить на
if (i mod 2)>0 then s:=s+a[i];
Program massiv;
Uses Crt;
var a:array[1..10] of integer;
i,sum,ch:integer;
begin
clrscr;
write(Введите число: );
readln(ch);
write(Введите элементы массива:);
sum:=0;
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i] mod 2)>0 then s:=s+a[i]; {*}
end;
writeln; write(Исходный массив: );
for i:=1 to 10 do
begin
write(a[i]);
write( );
end;
writeln; writeln;
write(Сумма нечётных элементов массива: ,sum)
writeln; writeln;
write(Номера элементов которые больше числа ,ch, : );
for i:=1 to 10 do
if (a[i]>ch) then
begin
write(i:2);
write( );
end;
writeln; writeln;
write(Положительные числа которые кратны числу ,ch, : );
for i:=1 to 10 do
if (a[i]>0) and (a[i] mod ch=0) then
begin
write(a[i]);
write( );
end;
readkey;
end.
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
