Ответы
Ответ дал:
0
const n=20;
var m:array [1..n] of integer;
i,s,a:integer;
begin
write('Массив: ');
for i:=1 to n do
begin
m[i]:=random(111)-45;
if m[i] mod 2 <> 0 then s:=s+m[i];
write(m[i],' ')
end;
writeln;
writeln('Сумма элементов, имеющих нечётные значения: ',s);
write ('Введите число А: ');
readln (a);
write ('Индексы элементов больше А: ');
for i:=1 to n do
if m[i] > a then write(i,' ');
writeln;
end.
Ответ дал:
0
Здравствуйте. Nisa. А вы какой класс? Мне просто нужна помощь по информатике
Вас заинтересует
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад