1.Одномерный массив заполнен случайным образом. Найти количество четных элементов. 2....

Question

1.Одномерный массив заполнен случайным образом. Найти количество четных элементов. 2. Одномерный массив размерностью N , где N -нечетное число, заполнен случайными числами от -15 до 6. Все , числа кратные 3 заменить на противоположные.

Comments

а ты очень хорошо знаешь Паскаль?

---

Не я по С++ и С#

---

Очень плохо знаю паскаль

---

ну ладно

---

вот вот...надеюсь))

---

просто проболела и теперь как в тумане...

---

ладно)) спасибо и на этом)))

Answer 1

1 ЗАДАЧА:
var
    count,i: integer;
    A: array [1..30] of integer;
begin
for i:=1 to 30 do
begin
    A[i]:= -100 + random(206);
    writeln('A[',i,'] = ', A[i]);
end;

for i:=1 to 30 do
    if(A[i] mod 2 = 0) then inc(count);

Writeln;Writeln;
Writeln('Кол-во четных элементов: ', count);
end.

2 ЗАДАЧА:
const
    N = 30;
var
    count,i: integer;
    A: array [1..N] of integer;
begin
for i:=1 to N do
begin
    A[i]:= -15 + random(22);
    writeln('A[',i,'] = ', A[i]);
end;

for i:=1 to 30 do
    if(A[i] mod 3 = 0) then A[i]:=-A[i];

Writeln;Writeln;
for i:=1 to N do
    writeln('A[',i,'] = ', A[i]);
end.

Comments

спасибо)))а можешь сказать почему от 1 до 30? и потом от куда такие цифры? на сколько я знаю если мы применяем функцию random(206) то будут случайные числа от 0 до 205...объясни пожалуйста)))

---

В первой задаче, не указана длина массива, поэтому я взял произвольную, равную 30, можешь изменить на любое другое число, только тогда нужно будет во всех местах программы поменять 30, на твое число. В второй задаче, у тебя написано что значения в массиве задаются случайным образом, то есть функцией random, и значения могут быть от -15 до 6. По формуле рандома получаем: -15 + random(6 - (-15)+1), получается 22. Точно по такому же принципу и в первой задаче, только там значения от -100 до 100