Question

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

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.