Укого с информатикой хорошо? 9 класс написать программу для нахождения минимального элемента массива а(21). написать программу, находящую номер первого и последнего отрицательного элементов массива y(25). вычислить среднее арифметическое положительных четных элементов массива а(n).

#1

var

a : array [1..21] of integer;

min : integer : = 32766;

begin

for var i: =1 to 21 do

  readln(a[i]);

for var i: =1 to 21 do

if (a[i] < min) then

min : = a[i];

writeln(min);

end.

#2

var

y : array [1..25] of integer;

isthefirst : boolean : = false;

last : integer : = 0;

begin

for var i: =1 to 25 do

  readln(y[i]);

for var i: =1 to 25 do

  if (y[i] < 0) and (isthefirst = false) then

    begin

    writeln(i);

    isthefirst : = true;

    break;

    end;

for var i: =2 to 25 do

begin

if (i = 25) then  

begin

if (y[i] < 0) and (last = 0) then

last : = i;

break;

end;

if ((y[i+1] > 0) and (y[i] < 0)) then

last : = i;

end;

if (isthefirst) and (last = 0) then

last : = 1;

if (last < > 0) then

writeln(last) else

writeln('there''no numbers');

end.

//не бейте за кастыли . мне лень

#2

type tintmassiv = array of integer;   //дин. массив (более гибок в работе)

var  

n : integer;

sum : integer : = 0;

counter : integer : = 0;

var a: tintmassiv;

begin

readln (n);

setlength(a, n);

for var i: =0 to n-1 do

begin

readln(a[i]);

if (a[i] > 0) and (a[i] mod 2 = 0) then

begin

sum += a[i];

counter += 1;

end;

end;

if (sum = 0) or (counter = 0) then

begin

writeln('there''re no numbers');

exit;

end;

writeln(sum/counter);

end.

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('длина последовательности: ');   var a: =(seqrandom(n-1,0,1)+(-; // последовательность 0 и 1   a.println;   if a.where(x-> x> =0).distinct.count> 1 then       writeln('есть отличающиеся элементы')   else writeln('все элементы равны') end. примеры длина последовательности:   4 1 1 1 -1 все элементы равны длина последовательности:   5 0 1 1 0 -1 есть отличающиеся элементы