Увеличить на 4 все элементы в первой половине массиваA (считать, что в массиве чётное число элементов). Размер массива и значенияэлементов массива – произвольные.
Увеличить на 4 все элементы в первой половине массива
A (считать, что в массиве чётное число элементов). Размер массива и значения
элементов массива – произвольные.
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы