Пожалуйста очень срочно нужно!!!!Дан массив содержащий 100 вещественных чисел заменить...

0 голосов
48 просмотров
Пожалуйста очень срочно нужно!!!!
Дан массив содержащий 100 вещественных чисел заменить первый элемент с последним второй с предпоследним и т.д.

Информатика (65 баллов) | 48 просмотров
Дано ответов: 2
0 голосов
Правильный ответ
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.
(16.9k баллов)
0 голосов

Код программы в файле, для 100 чисел. Но для примера я бы лучше взял 10, а то многовато будет. Массив автоматически заполняется рандомными числами до 100, и автоматически выводится на экран, результат перестановки также выводится на экран. 

(1.3k баллов)