Решите 2 вариант. тест по информатике.

Объяснение:

program EvenArray;

const

ArraySize=6;

var

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

x, i,ArraySum, OddQty, Min, MinPos, OverX5, Neg, Pos : integer;

begin

  for i:= 1 to ArraySize do begin

      Write('Input a[',i,']: ');

      ReadLn(a[i]);

  end;

  Write('Input x: ');

  ReadLn(x);

  

  ArraySum := 0; OddQty :=0; Min := a[1]; MinPos := 1; OverX5 := 0; Pos := 0; Neg := 0;

  for i:= 1 to ArraySize do begin

      ArraySum := ArraySum + a[i];

      if a[i] mod 2 <> 0 then OddQty := OddQty + 1;

      if a[i] < Min then begin Min := a[i]; MinPos := i; end;

      if (a[i] > x) and (a[i] mod 5 = 0) then OverX5 := OverX5+1;

      if a[i] > 0 then Pos := Pos + 1;

      if a[i] < 0 then Neg := Neg + 1;

  end;

  

  writeln('Default array is:');

  for i:=1 to ArraySize do write(a[i],' ');

  writeln();

  

  writeln('Total array sum is: ' , ArraySum);

  writeln('Odd quantity is: ', OddQty);

  writeln('Minimum in array is : ', Min ,' at the ', MinPos, '-th position');

  Writeln('More than X and x5 :', OverX5);

  If Pos = Neg

  then Writeln('There are equal negative and positive numbers')

  else if Pos > Neg then Writeln('There are more positive numbers than negative')

      else Writeln('There are more negative numbers than positive');

  

end.

Program palindrom; uses crt; var    s: string;     i,f: byte; begin  clrscr;     write('string: ');     readln(s);     f : = 0;     for i : = 1 to length(s) div 2 do        if s[i] < > s[length(s)-i+1] then begin            writeln('no palindrome');             f : = 1;             break        end;     if f = 0 then        write('palindrome'); readln end.