Увеличить на 4 все элементы в первой половине массива a (считать, что в массиве чётное число элементов). размер массива и значения элементов массива – произвольные.

279

497

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

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

vadim4ikkek

Информатика

4,7(10 оценок)

var mass: array [1..20] of integer;

i,n: integer;

begin

writeln('изначальный массив: ');

randomize;

for i: =1 to 20 do begin

mass[i]: =random(30);

write(mass[i],' ');

end;

writeln('новый массив: ');

for i: =1 to 20 do begin

if i< =10 then

mass[i]: = mass[i]+4;

write(mass[i],' ');

end;

end.

Scared911

Информатика

4,5(3 оценок)

Program primer; uses crt; var i,n: integer; a: array[1..100] of integer; begin clrscr; randomize; write('pazmer massiva = '); readln(n); for i: =1 to n do a[i]: = random(100)-50; for i: =1 to n do write(a[i]: 5); writeln; writeln; for i: =1 to (n div 2) do write((a[i]+4): 5); for i: =((n div 2)+1) to n do write(a[i]: 5); readln; end.