Коробов Владимир
Мыслитель
(9680)
5 лет назад
1)
var i: byte;
a: array [1..15] of byte;
begin
for i:=1 to 15 do
begin
a[i]:=random (9);
write (a[i]:3);
end;
writeln;
for i:=1 to 15 do
if a[i] mod 2 = 0 then write (a[i]+1:3)
else write (2*a[i]:3);
end.
2)
var i: byte;
sum: real;
a: array [1..16] of real;
begin
sum:=0;
for i:=1 to 16 do
begin
a[i]:=-2 + random (5)+random (100)/100;
writeln (a[i]:7:2);
if a[i] < 0 then sum:=sum+a[i];
end;
writeln;
writeln ('сумма отрицательных значений элементов массива = ', sum);
end.