Паскаль1) В одномерном массиве A(10) найти среди отрицательный элементов максимальный.
2) Дан массив из N элементов. Определить количество элементов, которые являются четными числами.

Предыдущий
вопрос Следующий
вопрос

1) Пример решения на Pascal:

program MaxNegativeElement;
var
A: array[1..10] of integer;
i, maxNegative: integer;
begin
maxNegative := 0;
writeln('Введите элементы массива A:');
for i := 1 to 10 do
begin
readln(A[i]);
if (A[i] < 0) and (A[i] > maxNegative) then
maxNegative := A[i];
end;
if maxNegative = 0 then
writeln('В массиве нет отрицательных элементов.')
else
writeln('Максимальный отрицательный элемент: ', maxNegative);
end.

2) Пример решения на Pascal:

program CountEvenElements;
var
A: array of integer;
N, countEven, i: integer;
begin
writeln('Введите количество элементов массива:');
readln(N);
SetLength(A, N);
countEven := 0;
writeln('Введите элементы массива A:');
for i := 0 to N-1 do
begin
readln(A[i]);
if A[i] mod 2 = 0 then
countEven := countEven + 1;
end;
writeln('Количество четных элементов в массиве: ', countEven);
end.

Это простые примеры решений задач на Pascal. Не забудьте доработать их или добавить проверки на ввод данных, чтобы учесть возможные ошибки пользователей.