Дан массив из 20 элементов , заполненный случайным образом. Вывести его на экран , после этого изменить массив , чтобы значение последнего элемента стало значением первого ( обратный порядок ) пример: 1 2 3 4 5 и стало 5 4 3 2 1 (Паскаль)
Ответы на вопрос
Ответил Browze
0
ar
arr: array[1..20] of integer;
i,tmp:integer;
begin
for i := 1 to 20 do
begin
arr[i] := random(100);
end;
for i := 1 to 20 do write(arr[i], ' ');
for i := 10 downto 0 do
begin
tmp := arr[i+1];
arr[i+1] := arr[20-i];
arr[20-i] := tmp;
end;
writeln;
for i := 1 to 20 do write(arr[i], ' ');
end.
arr: array[1..20] of integer;
i,tmp:integer;
begin
for i := 1 to 20 do
begin
arr[i] := random(100);
end;
for i := 1 to 20 do write(arr[i], ' ');
for i := 10 downto 0 do
begin
tmp := arr[i+1];
arr[i+1] := arr[20-i];
arr[20-i] := tmp;
end;
writeln;
for i := 1 to 20 do write(arr[i], ' ');
end.
Ответил int6h
0
А вторая половина задания?
Ответил int6h
0
Сначала вывести, а потом изменить массив.
Ответил int6h
0
Вот код. Ещё раз выводит значения массива. В условии это явно не указано, но всё же.
Приложения:
Ответил int6h
0
В диалектах Паскаля можно проще, но в условии об этом ничего не указано.
Ответил Аноним
0
Именно потому, что ничего не сказано, можно выбирать любой диалект.
Ответил Аноним
0
Таков местный принцип. Если автору вопроса нужна конкретная реализация языка, он ее указывает.
Новые вопросы