Помогите написать программы в ПАСКАЛЬ.
1. Найти суммы всех положительных и абсолютных значений всех отрицательных элементов массива.
2. Найти количество элементов, которые при целочисленном делении на 9 дают остаток 2, и сумму всех остальных элементов.
3. Найти произведение минимального и максимального элементов массива.
1. Найти суммы всех положительных и абсолютных значений всех отрицательных элементов массива.
2. Найти количество элементов, которые при целочисленном делении на 9 дают остаток 2, и сумму всех остальных элементов.
3. Найти произведение минимального и максимального элементов массива.
More Questions From This User See All
Answers & Comments
const
N=10;
var
a:array[1..N]of integer;
i,count,sum,t,max,min:integer;
begin
randomize;
sum:=0; count:=0; t:=0;
max:=-21; min:=21;
for i:=1 to N do
begin
a[i]:=random(41)-20;
write(a[i]:4);
sum:=sum+abs(a[i]);
if a[i] mod 9 = 2 then
begin
inc(count);
t:=t+a[i];
end;
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln; writeln('Sum: ',sum);
writeln('Count(x/9=2): ',count);
writeln('SumOst: ',sum-t);
writeln('Min: ',min,' Max: ',max );
writeln('Min*Max: ',min*max);
end.