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