Question

Практическая работа «Обработка массивов»
Вариант 1
Дан массив, состоящий из N целых чисел (N=6). Составить
программу, в которой будут реализованы следующие
действия:
а) заполнение массива с клавиатуры;
б) поиск суммы всех элементов массива;
в) подсчет количества элементов массива, имеющих
нечетное значение;
г) поиск значения и номера наименьшего элемента массива;
д) подсчет количества тех элементов массива, значения
которых больше заданного числа х (вводит пользователь с
клавиатуры) и одновременно кратны 5;
е) вывод сообщения о том, каких элементов в массиве
больше, положительных или отрицательных.​

Answer 1

Ответ:

Объяснение:

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.