Пожалуйста, это очень важно, прошу, помогите

Question

Пожалуйста, это очень важно, прошу, помогите

---

Comments

Но про К ничего кроме того, что её вводишь с клавиатуры нет... Может где есть продолжение текста?

---

нет, только это... Дальше идёт след задание, которое я тоже не знаю как решать

---

Может раньше что есть?

---

хм, щас посмотрела, там есть задание, но оно вроде вообще не должно зависеть

---

есть в вк?

---

а то я тут не могу присылать фотографии (

---

Мне родители не разрешают добавлять и переписываться ни с кем, кроме родственников и одноклассников.

---

хорошо

---

Прикрепила задачу без К

---

спасибо большое

Answer 1

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.

Comments

Здравствуйте. Nisa. А вы какой класс? Мне просто нужна помощь по информатике