Регистрация
fidawa2006ozpk8u
10.07.2021 07:14
Информатика
Есть ответ 👍

Изучить и написать конспект по теме: «Обновление антивирусной защиты через Интернет».

275
340
Посмотреть ответы 1

Ответы на вопрос:

daschkavolf
daschkavolf
4,4(70 оценок)

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] < 0) and (a[i] > 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.

Популярно: Информатика