Question

Разработать программу на языке Паскаль турбо для решения следующей задачи.
Задан массив целых чисел X(n). Найти
• сумму чётных элементов массива;
• наименьшее из отрицательных чисел массива.
Из данного массива и некоторого массива того же типа, но другой
размерности Y (m), сформировать общий массив Z(n + m).

Answer 1

Ответ:

чтобы не задавать вручную, пусть он заполняется случайными числами в диапазоне от -50  до + 50

Free Pascal

const

 n=10;

 m=8;

var

 x : array [0..n] of integer;

 y : array [0..m] of integer;

 z : array [0..n+m] of integer;

 i, c, mi : integer;

begin

 randomize;

 writeln('Массив X');

 for i:=0 to n-1 do begin

   x[i] := random(100)-50;

   if i<m then

     y[i] := random(100)-50;

   write(x[i], '  ');

 end;

 c:=0;

 mi:=0;

 for i:=0 to n-1 do begin

   if x[i] mod 2 = 0 then c:=c+x[i];

   if (x[i] < 0) and (x[i] < mi) then mi:=x[i];

 end;

 writeln();

 writeln('Сумма чётных = ', c);

 if mi<0 then

   writeln('Наименьшее из отрицательных = ', mi)

 else

   writeln('Отрицательных элементов не найдено');

(*Задание 2 - объединить массивы a и b*)

 writeln('Массив Y');

 for i:=0 to n-1 do z[i]:=x[i];

 for i:=0 to m-1 do  begin

   z[i+n]:=y[i];

   write(y[i], '  ');

 end;

 writeln();

 writeln('Массив Z');

 for i:=0 to n+m-1 do

   write(z[i], '  ');

end.