Я прошу Вас,ребятка,помогите,мне очень срочно нужно. Одномерный массив из 6 элементов с номерами от 3 до 8 заполнить случайным образом числами от 5 до 17. Поменять местами 5-ый и 7-ой элементы массива,а 4-ый элемент увеличить в...
Я прошу Вас,ребятка,помогите,мне очень срочно нужно.
Одномерный массив из 6 элементов с номерами от 3 до 8 заполнить случайным образом числами от 5 до 17. Поменять местами 5-ый и 7-ой элементы массива,а 4-ый элемент увеличить в 3 раза. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.
Гость
Ответ(ы) на вопрос:
Гостьvar
i:integer;
a:array[3..8]of integer;
begin
writeln('Исходный массив:');
for i:=3 to 8 do
begin
a[i]:=random(5,17);
write(a[i]:4); end;
writeln;
i:=a[7];
a[7]:=a[5];
a[5]:=i;
a[4]:=a[4]*3;
writeln('Преобразованный массив:');
for i:=3 to 8 do
write(a[i]:4);
end.
Не нашли ответ?
Похожие вопросы