1)
var mas:array[1..7] of integer;
i:integer;
begin
writeln('Введите 7 целых чисел:');
for i:=1 to 7 do
begin
readln(mas[i]);
if(mas[i] mod 2 <>0) then mas[i]:=mas[i]*10;
end;
writeln('Изменённый массив:',mas);
end.
2) var mas:array[1..9] of integer;
i,b:integer;
begin
writeln('Введите 9 целых чисел:');
for i:=1 to 9 do
begin
readln(mas[i]);
if(mas[i] <0) then b:=b+mas[i];
end;
writeln('Сумма отрицательных элементов= :',b);
end.
3) var mas:array[1..4] of integer;
i,b:integer;
begin
writeln('Введите 4 целые числа:');
b:=1;
for i:=1 to 4 do
begin
readln(mas[i]);
b:=b*mas[i];
end;
writeln('Произведение чисел= ',b);
end.
n = 15;
var
a: array[1..n] of integer;
i: integer;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i] := Random(61) - 30;
Write(a[i]:4);
if a[i]>0 then a[i]:=2*a[i]
else
if a[i]<0 then a[i]:=7
end;
Writeln;
Writeln('После преобразования');
for i := 1 to n do Write(a[i]:4);
Writeln
end.
Тестовое решение:
Элементы массива
-20 15 16 20 0 16 -15 -1 -2 21 -8 -10 4 -24 1
После преобразования
7 30 32 40 0 32 7 7 7 42 7 7 8 7 2