М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
vNeronRazerv
vNeronRazerv
07.02.2021 22:33 •  Информатика

Дан целочисленный одномерный массив A(N). Инвертировать элементы этого массива.

Написать программу в консольном приложение Dephi на языке pascal для начинающих

👇
Ответ:
SuperVai
SuperVai
07.02.2021

const N = 10;

var

   a: array[1..N] of integer;

   i: byte;

   b: integer;

begin

   for i:=1 to N do

       read(a[i]);

 

   for i:=1 to N div 2 do begin

       b := a[i];

       a[i] := a[N-i+1];

       a[N-i+1] := b;

   end;

 

   for i:=1 to N do

       write(a[i],' ');

 

   writeln;

end.

Объяснение:

4,7(65 оценок)
Открыть все ответы
Ответ:
Lifeismyy
Lifeismyy
07.02.2021

Для перевода из 2ой в 8ую необходимо разбить число с конца на триады(три цифры). Получается:

11011101000(2) = 011 011 101 000

*В начале добавляется ничего не значащий нуль, чтобы образовать триаду

011(2)  = 3(8)

101(2) = 5(8)

значит ответ: 3350(8)

Аналигочная ситуация с 16ой. Но здесь разбиваете на тетрады(4 цифры). Получается:

11011101000(2) = 0110 1110 1000 (здесь тоже в начале добавляется ничего не значащий нуль, чтобы образовать тетраду)

0110(2) = 6(16)

1110(2) = E(16)

1000(2) = 8(16)

значит ответ: 6Е8(16)

4,7(21 оценок)
Ответ:
474886
474886
07.02.2021

1.

const n=5;

var a:array [1..n] of integer;

i:integer;

begin

write('       Исходный массив: ');

for i:=1 to n do

begin

a[i]:=random(21)-10;

write(a[i]:3,' ');

if a[i] mod 2 = 0 then a[i]:=a[i]-3

end;

writeln;

write('Преобразованный массив: ');

for i:=1 to n do write(a[i]:3,' ')

end.

2.

const n=8;

var a:array [1..n] of integer;

i,s:integer;

begin

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(21)-10;

write(a[i]:3,' ');

s:=s + a[i]

end;

writeln;

write('Сумма всех элементов массива: ',s)

end.

3.

const n=7;

var a:array [1..n] of integer;

i,p:integer;

begin

p:=1;

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(21)-10;

write(a[i]:3,' ');

if a[i] > 0 then p:=p * a[i]

end;

writeln;

write('Произведение положительных элементов массива: ',p)

end.

4,6(45 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ