2. дан линейный массив a[1..n], содержащий целые числа. преобразовать элементы массива по следующему правилу: если элемент четный, прибавить к нему 1, если нечетный – умножить на два.

161

259

Посмотреть ответы 2

Ответы на вопрос:

RBR13

Информатика

4,4(78 оценок)

var a: array of integer;

i,n: integer;

begin

write('введите количество элементов массива: ');

readln (n);

write ('массив: ');

a: =new integer[n+1];

for i: =1 to n do

begin

a[i]: =random(89)+10;

write (a[i]: 3,' ')

end;

writeln;

write ('массив: ');

for i: =1 to n do

begin

if a[i] mod 2 = 0 then a[i]: =a[i]+1

else a[i]: =a[i]*2;

write (a[i]: 3,' ')

end

end.

helloiSashA

Информатика

4,4(57 оценок)

Var a: array [1..10] of integer; i,j,k: integer; function sum(c: integer): integer; var s: integer; begin s: =c mod 10; c: =c div 10; s: =s + c mod 10; s: =s + c div 10; sum: =s; end; begin randomize; writeln('массив: '); for i: =1 to 10 do begin a[i]: =random(900)+100; write(a[i],' '); end; writeln; writeln('массив после перестановок: '); for i: =1 to 9 do for j: =(i+1) to 10 do if sum(a[i])> sum(a[j]) then begin k: =a[i]; a[i]: =a[j]; a[j]: =k; end; for i: =1 to 10 do write(a[i],' '); writeln; end.