Пожалуйста очень срочно нужно!!!!Дан массив содержащий 100 вещественных чисел заменить первый элемент с последним второй с предпоследним и т.д.
Пожалуйста очень срочно нужно!!!!
Дан массив содержащий 100 вещественных чисел заменить первый элемент с последним второй с предпоследним и т.д.
Гость
Ответ(ы) на вопрос:
Гостьbegin
var a: array [0..99] of integer;
var i, k: integer;
write('[ ');
for i := 0 to 99 do
begin
a[i] := random(64);
write(a[i], ' ');
end;
writeln(']');
for i := 0 to 49 do
begin
k := a[i];
a[i] := a[99 - i];
a[99 - i] := k;
end;
write('[ ');
for i := 0 to 99 do
write(a[i], ' ');
writeln(']');
end.
ГостьКод программы в файле, для 100 чисел. Но для примера я бы лучше взял 10, а то многовато будет. Массив автоматически заполняется рандомными числами до 100, и автоматически выводится на экран, результат перестановки также выводится на экран.
Не нашли ответ?
Похожие вопросы