В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Хэймзон
Хэймзон
23.03.2021 17:03 •  Информатика

Составить программу на паскале - найти сумму и количество элементов массива от - 90 до 90
(​

Показать ответ
Ответ:
Olga75aella
Olga75aella
29.12.2022 03:05
27   13     6    3    1    ДЕЛИМ 27 на 2 , в частном берем без целое число (=13)
1      1       0   1     1       <===    27(10) =11011(2)  пишем в обратном порядке
                                  Делим 13 на 2, в частном берем целое без округления 6
                                 Делим 6 на 2 (=3) и т.д.

11    5    2     1
1      1    0     1        11(10) = 1011(2)

2001   1000   500    250    125   64   32   16   8   4   2   1
1              0       0        0       1      0     0     0    0   0   0   1
                2001(10) =100000010001(2)
0,0(0 оценок)
Ответ:
жандосЕУ
жандосЕУ
19.07.2021 12:33
var a, b, c, i, j, n, ch:integer;
      s, p:array [1..10000] of integer;
begin
   n:=30;
   for i:=1 to n do
      s[i]:=random(64000)-32000;
      writeln('Данный массив');
   for i:=1 to n do
      write (s[i],' ');
   a:=s[1];
   for i:=1 to n do
      if s[i]>a then
         a:=s[i];
   for i:=1 to n do
       if s[i]=a then
          begin
          j:=j+1;
          p[j]:=i;
          end;
    c:=j;
    writeln;
    writeln('Полученный массив');
    for i:=1 to n do
       begin
       ch:=0;
       for j:=1 to c do
          if i=p[j] then inc(ch);
       if ch=0 then write (s[i],' ');
       end;
end.       
P.S. Надеюсь на благодарность и лучший ответ.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота