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

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

Задать свой вопрос
1 ответ

1.

var

  A: array [1..10] of integer;

  max, i: integer;

begin

    for i:=1 to 10 do                 // заполнение массива

        A[i] := random(100) - 50;

    max := -51;

    for i:=1 to 10 do                 // обработка массива

        if (A[i] lt; 0) and (A[i] gt; max) then

        max := A[i];

    writeln(max);

end.

2.

var

  A: array [1..1000] of integer;

  kol, i, N: integer;

begin

    readln(N);

    for i:=1 to N do                 // наполнение массива

        A[i] := random(100) - 50;

    for i:=1 to N do                 // обработка массива

        if A[i] mod 2 = 0 then

        inc(kol);

    writeln(kol);

end.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт