Ответы на вопрос:
450 = 111000010
0000000111000010 - прямой
1111111000111101 - обратный
+1
1111111000111110 - дополнительный
з.ы числа написаны в 2битной сетке (если нужно убери первые нули)
желательно в уточнять тип массива (целый, вещественный ) и споособ его генерации(ввод с клавиатуры, генератор случайных чисел).
в данной программе массив получен с генератора случайных чисел
program raznost;
uses crt;
const n=100; {максимальный размер массива}
var a: array[1..n] of integer;
i,m: integer;
k,s,rez: longint;
begin
clrscr;
write('введите к: ');
readln(k);
write('введите размер массива < 100: ');
readln(m);
randomize;
write('исходный массив: ')
s: =0;
for i: =1 to m do
begin
a[i]: =random(50)+25;
write(i: 3);
if (i mod 2)< > 0 then s: =s+a[i];
end;
writeln;
rez: =k-s;
writeln('разность между k и суммой всех элементов массива с нечетными индексами=',rez);
readkey;
end.
Популярно: Информатика
-
alinaharitonovi09.04.2020 09:11
-
Nicalat17.03.2020 01:10
-
lubochka212.06.2020 08:15
-
волна1611.06.2022 15:57
-
khubulovaliza21.12.2022 02:36
-
burgerface30.03.2022 07:25
-
никеда05.10.2020 06:28
-
бооой25.09.2022 04:15
-
Ксеня22806.06.2021 06:09
-
mark0206200518.11.2020 08:56