ТЕКСТ ЗАДАНИЯ
Определи порты к которым подключены
гироскопические датчики
Ответы на вопрос:
всё таки есть сомнение нужна сумма нечётных элементов массива или сумма элементов массива с нечётными индексами?
в данной прграмме подсчитывается сумма нечётных элементов массива
если же нужно второе то строку отмеченную {*} следует заменить на
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.
Популярно: Информатика
-
Loskinstem561717.06.2021 22:16
-
1007192710.06.2022 16:09
-
Nickky22.07.2020 09:23
-
jamshidbek24.04.2020 06:15
-
Асель113925.03.2023 02:24
-
starlitt19.12.2022 00:03
-
vt50522.08.2021 01:41
-
Laurka1109.09.2021 23:29
-
2018kat01.01.2022 04:11
-
SuperPuper13108.06.2022 22:10