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

Pascal: задан массив размерностью 100 случайных чисел из диапазона (-85, +165). вывести на экран все элементы массива, а также максимальный из последних 25.

👇
Ответ:
Fvfbgvbgbhhh
Fvfbgvbgbhhh
27.02.2023
var
 a:array[1..100]of integer;
 i,max,c:integer;
   begin
     for i:=1 to 100 do
      begin
        a[i]:=random(251)-85;
        if i=76 then
          max:=a[i];
        if i>76 then
          if a[i]>max then
            max:=a[i];
          write(a[i],' ');      end;
      writeln;
      writeln(max);   end.
4,8(48 оценок)
Ответ:
ТвояМилая
ТвояМилая
27.02.2023
Var 
a: array[1..100] of integer; 
i, max: integer;
begin 
writeln('Построенный массив '); 
for i := 1 to 100 do   begin   
a[i] := random(251) - 85;   
write(a[i], ' ');   
if i = 76 then max := a[i];   
if i > 76 then if a[i] > max then max := a[i]; 
end; 
Writeln('|  Максимальный элемент из последних 25-ти чисел массива равен ', max);
end.
4,6(51 оценок)
Открыть все ответы
Ответ:
katrinsweet
katrinsweet
27.02.2023
1.
Формула:  I=Ki и N=2 ^{i} 
K =30 N=128 найти I
решение
N=  2 ^{i}  128 =2 ^{7}  i=7 бит
I =Ki =30•7 =210 бит
2.
l =Ki
N=  2^{i} 

I = объем информации

k = кол-во символов

i = минимальное кол-во бит для кодирования одного символа

N = мощность алфавита;

k = 64•256 = 16384

N= 32

i = ㏒_{2}  32 = 5 бит

I = 16384 • 5 = 81920 (бит) = 10240 (байт) = 10 Кбайт

ответ: 10 Кбайт

3.

0,5 Кбайта • 1024= 512 байта

4.

Извини, не могу решить, вроде решил а потом перерешил и неправильно, вот что есть уж пока:

На один символ - 1 байт

30 строк по 50 символов = 1500 символов

3 страницы - это 4500 символов

ответ: 4500 байт!

4,5(31 оценок)
Ответ:
tat321
tat321
27.02.2023
Программа на языке Паскаль.

const N=30;
var i, s0, k, a: integer;
      b: array [1..N] of integer;
begin
      readln(a);
      s0:=0;
      k:=0;
      randomize;
      for i:=1 to N do
      begin b[i]:=random(20001)-10001; {чтобы диапазон случайных чисел был от -10000 до 10000}
                if (b[i]<0) then s0:=s0+b[i];
                if (b[i]>0) and (b[i]<=a) then inc(k);
      end;
      if (s0<>0) then writeln(s0, ' - сумма отрицательных чисел')
      else writeln('отрицательных чисел нет');
      if (k<>0) then writeln(k, ' - количество положительных чисел, не превосходящих числа А')
      else writeln('положительных чисел не превосходящих числа А, нет');
readln;
end.
4,4(62 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ