• Заполнить массив из 15 элементов случайных целых чисел из диапазона [-15;+17].
    Вывести его на экран.
    Определить количество четных элементов.

    В этом же массиве найти максимальный отрицательный
    Элемент.


    Выполнить работу в free pascal

Ответы 1

  • const n=15; var a:array[1..n] of integer;i,k,max:integer; beginRandomize;writeln('Массив A:');for i:=1 to n do begin a[i]:=random(33)-15; write(a[i]:4); end;writeln;k:=0;max:=-999;for i:=1 to n do begin if a[i] mod 2 = 0 then k:=k+1; if (a[i]>max)and(a[i]<0) then max:=a[i]; end;writeln('k = ',k,'  max = ',max);end.Пример:Массив A:  14   5   5   7 -10 -13  -3  10   5  -2  -4  -5   3 -10 -14k = 7  max = -2
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years