Даю 15 баллов, помогите написать программу на Pascal. Условие: Дан массивиз
Даю 15 баллов, помогите написать программку на Pascal. Условие: Дан массивиз 15 частей. 1)Найти сумму чисел элементов являющихся нечётными числами с чётным индексом 2)Отыскать сумму элементов индексы которых нечётными... Это две задачки. Заранее Великое СПАСИБО!!!
Задать свой вопросОтвет:
var M:array[0..15]of integer;
k, i, sum ,inp : integer;
begin
for k := 0 to 15 do begin
writeln('Введите ', k , ' элемент массива:');
readln(M[k]);
end;
for i := 0 to 15 do begin
if (i mod 2 = 0) then
begin
if (M[i] mod 2 = 0) then
begin
sum := sum + M[i];
end;
end;
end;
writeln('Вывод : ' , sum - M[0]);
readln;
end.
Изъяснение: Ответ к первой доли.В общем: в этой программе 0 не считается чётным числом, поэтому 0-вой индекс, даже если его число чётное - не считается . Если вы с этим не согласны то вам всего только необходимо из этой строчки: writeln('Вывод : ' , sum - M[0]); сделать writeln('Вывод : ' , sum);
2-ая задачка :
var M:array[0..15]of integer;
k, i, sum ,inp : integer;
begin
for k := 0 to 15 do begin
writeln('Введите ', k , ' элемент массива:');
readln(M[k]);
end;
for i := 0 to 15 do begin
if (i mod 2 lt;gt; 0) then
sum := sum + M[i];
end;
writeln('Вывод : ' , sum);
readln;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.