const
n=10;
var
b: array [1..n] of integer;
count,sum,pr,i:integer;
begin
count:=0; sum:=0; pr:=1;
for i:=1 to n do
begin
b[i]:=random(101)-50;
write(b[i]:4);
if (b[i] > 7) and (b[i] mod 4 = 0) then
begin
inc(count);
sum:=sum+b[i];
pr:=pr*b[i];
end;
end;
writeln;
if count > 0 then
begin
writeln('Count: ',count);
writeln('Summa: ',sum);
writeln('Proizvedenie: ',pr);
end
else writeln('Takix net');
end.
чтобы не задавать вручную, пусть он заполняется случайными числами в диапазоне от -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.