Пожалуйста очень срочно нужно!!!! Дан массив содержащий 100 вещественных чисел заменить первый элемент с последним второй с предпоследним и т.д.
Answers & Comments
HRAshtonbegin 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.
1 votes Thanks 1
mrVladislav
Код программы в файле, для 100 чисел. Но для примера я бы лучше взял 10, а то многовато будет. Массив автоматически заполняется рандомными числами до 100, и автоматически выводится на экран, результат перестановки также выводится на экран.
Answers & Comments
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.