Сделать в паскале! В заданном массиве все элементы, стоящие на ...
Сделать в паскале!В заданном массиве все элементы, стоящие на нечетных местах,разделить на 2. Вывести старый и новый массивы.
Есть ответ
12.12.2022
412
Ответ
uses Arrays;
var
n, i:integer;
arr:array of integer;
begin
writeln('Введите размерность массива: ');
readln(n);
SetLength(arr,n);
arr:=CreateRandomIntegerArray(n);
writeln('Сгенерированный массив: ');
for i:= 0 to n-1 do
write(arr[i], ' ');
write(#10);
writeln('Новый массив: ');
for i:= 0 to n-1 do begin
if (i mod 2 0) then write(arr[i]/2, ' ') else
write(arr[i], ' ');
end;
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022