почему программа в pascal ABC выдаёт что массив 0
5-9 класс
|
program peremena;
const N=8;
var A:array[1..N] of integer;
I,X: integer;
begin
for i:=1 to n do
if i>N then
begin
begin
x:=a[i];
a[i]:=a[n];
a[n]:=x
end;
begin
x:=a[i+1];
a[i+1]:=a[n-1];
a[n-1]:=x
end;
end;
writeLn('массив',A[i]:8)
end.
Смотри вложение
........................
тогда проще вывести элементы массива с конца и вообще не делать перестановку
нет мне надо с помощью перестоновки
прежде чем делать перестановки надо массив сформировать, у тебя этот этап отсутствует
ну напиши пожалуста
я в программирование ничего не понимаю
Другие вопросы из категории
обозначения серверов. Определите, какой сервер является узловым.
Читайте также
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
координаты х и у и программа проверяет, подходит ли эта точка к графику или нет. Пример на 2 фото.
Очень нужно. 80 баллов
R, S = Pi*R2 ( R в квадрате ). Pi = 3.14
P.S Напишите полную программу
2) дано четырёхзначное число. Что больше: произведение цифр числа или их утроенная сумма. pascal ABC
компьютере( то есть проверить будет ли работать программа)