В одномерном массиве А, состоящем из 12 целых чисел, все положительные элементы заменить пятеркой

В одномерном массиве А, состоящем из 12 целых чисел, все положительные элементы заменить пятеркой.

      A: array [1..12] of integer;  //Одномерный массив из 12 целых чисел

      i: integer;  

    begin

      begin

        write(A[i], ‘  ‘);

        writeln(‘Введите A[‘, i, ‘]’);

      end;

      begin

      for i:= 1 to 12 do

        

      writeln;  //Перевод на новую строку

      for i:= 1 to 12 do  //Вводим элементы массива с клавиатуры

      end;

  • var

      write(‘Измененный массив:  ‘);

      writeln;  {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}

        if A[i] > 0 then A[i]:= 5; 

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

    Если все правильно, отметь решение как лучшее)

      for i:= 1 to 12 do   {Изменяем все положительные элементы на 5 и распечатываем полученный массив}

        write(A[i], ‘  ‘);

    end.

        readln(A[i]);

     

1составьте программу, которая заполняет массив a[10] случаынми целыми числами в диапазоне от 0 до 10 и находит минимальный элемент массива среди эле

1)составьте программу,которая заполняет массив a[1..10] случаынми целыми числами в диапазоне от 0 до 10 и находит минимальный элемент массива среди элементов с нечётными индексами

 

 

 

2)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 10,находит максимальный элемент массива,а затем вычисляет,сколько раз он встречается в массиве

    end.

    var
    a:array[0..9] of integer;
    i,y,s,max:integer;
    begin
    randomize();
    for i:=0 to 9 do
    begin
    y:= random(10);
    a[i]:= y;
    end;
    for i:=0 to 9 do write(a[i],’ ‘);
    writeln(‘ — десять випадкових чисел’);
    max:=a[0];
    for i:=1 to 9 do
    if a[i]<max then max:=a[i];
    writeln(max, ‘ — максимальне число.’);
    s:=0; // сума чисел, що приймають таке значення
    for i:=0 to 9 do
    if a[i]=max then s:=s+1;
    writeln(‘Зустричается ‘,s,’ раз.’);

  • Первое.

    end.

    Второе

    var
    a:array[0..9] of integer;
    i,y,min:integer;
    begin
    randomize();
    for i:=0 to 9 do
    begin
    y:= random(10);
    a[i]:= y;
    end;
    for i:=0 to 9 do write(a[i],’ ‘);
    writeln(‘ — десять випадкових чисел’);
    min:=a[0];
    for i:=1 to 9 do
    if a[i]<min then min:=a[i];
    writeln(min, ‘ — мiнiмальне число.’);

8 кл Домашнее задание №2Тема: Измерение информации Алфавит племени Мульти состоит из 32 букв. Какое количество информации несёт одна буква этого а

8 кл  Домашнее задание №2

Тема: Измерение информации

 

1. Алфавит племени Мульти состоит из 32 букв. Какое количество информации несёт одна буква этого алфавита?

 

2. Сообщение, записанное буквами из 16-символьного алфавита, содержит 50 символов. Какой объём информации оно несёт?

 

3. Сколько символов содержит сообщение, записанное с помощью 16-ти символьного алфавита, если его объём составил 1/16 часть Мегабайта?

 

4. Сколько килобайтов составит сообщение из 384 символов 16-ти символьного алфавита?

 

5. Два сообщения содержат одинаковое количество символов. Количество информации в первом тексте в 1,5 раза больше, чем во втором. Сколько символов содержат алфавиты, с помощью которых записаны сообщения, если известно, что число символов в каждом алфавите не превышает 10 и на каждый символ приходится целое число битов?

 

    4. 16 это 2 в 4-ой степени. 384*4=1536(объем информации)

  • 1. 32 это 2 в 5-ой степени. всего в алфавите 32 буквы, значит надо 32 *5=160      

    2. 16 это 2 в 4-ой степени. всего 50 символов значит 50*4=200        

Составьте программу, которая заполняет массив a[10]случайными целыми числами в диапазоне от 0 до 10 и находит максимальный элемент массива среди эле

составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 10 и находит максимальный элемент массива среди элементов с чётными индексами

      max, i: integer;  //max — максимальный элемент

    end.

    Если все правильно, отметь решение как лучшее)

      begin

      writeln(‘Максимальный элемент массива среди элементов с четными индексами: ‘, max);  //Печатаем исходный элемент

      end;

      for i:= 1 to 10 do 

        write(a[i], ‘  ‘);

        a[i]:= random(10);

        if (i mod 2 = 0) and (a[i] > max) then

     

      a: array [1..10] of integer;  //Массив из 10 целых элементов

          max:= a[i];

    begin

      write(‘Исходный массив:  ‘);  {Заполняем исходный массив, печатаем его и находим максимальный элемент}

  • var

      max:= 0;  {Присваиваем max минимальное значение, которое он может принять}

Для сообщения использовался 64 симв алфавит 1 страница 30 строк всё сообщ содержит 8775 байт и занимает 6 страниц сколько символов в 1 странице?

для сообщения использовался 64 симв алфавит 1 страница 30 строк всё сообщ содержит 8775 байт и занимает 6 страниц сколько символов в 1 странице?

    На страницу уходит 1950 бит, на строку в 30 раз меньше — 1950/30=65 бит.

     

  • Алфавит — 64 символа, поэтому на 1 символ будет уходить по 6 бит:

    Теперь считаем сколько символов на странице: 11700/6=1950 бит (т.к. на 1 симв. 6 бит)

    Общий объем — 8775 байт=8775*8 бит=70200бит.

     

    У нас есть 6 страниц, сл-но на страницу приходится 70200/6 бит=11700 бит.

     

Написать программы: 1y=sinx^2 2 x>=0,y=cosx ,1-2sinx в противном случаи

написать программы: 1)y=sinx^2 2) x>=0,y=cosx ,1-2sinx в противном случаи

      y:= sin(sqr(x));  

     

    2)

      x, y: real;

     

    Если все правильно, отметь решение как лучшее)

  • Программы на pascal

    end.

    var

      readln(x);  //Вводим х

      writeln(‘y = ‘, y : 0 : 5);  {Печатаем значение у с округлением до 5 знаков после запятой}

    begin

    end.

    begin

      writeln(‘Введите х’);

      writeln(‘Введите х’);

      else y:= 1 — 2 * sin(x);

      x, y: real;  

    1)

    var

      readln(x);  //Вводим х

      if x >= 0 then y:= cos(x)  //Если х >= 0, то у = cosx, иначе у = 1 — 2sinx

      writeln(‘y = ‘, y : 0 : 5);  {Печатаем значение у с округлением до 5 знаков после запятой}

З РЕШИТЬ ЗАДАЧУ! Имеются 10 закрытых ящиков с деталями. В каждом ящике больше 10 деталей, однако в одном ящике все детали бракованные, а

ПОМОГИТЕ ПЛИЗЗ РЕШИТЬ ЗАДАЧУ!!!Имеются 10 закрытых ящиков с деталями. В каждом ящике больше 10 деталей, однако в одном ящике все детали бракованные, а масса бракованной детали, меньше нормальных деталей на 10 г. Как определить одним взвешиванием на рычажных весах с гирями, ящик с бракованными деталями?

  • Номеруем каждый ящик от 1 до 10. Сответственно номеру кладем кол-во монет ( в первый ящик — 1 монета, во второй — 2 и так далее). Взвешиваем. У нас получается результат, отличный, от того, если бы мы взвесили 10 ящиков, наполненных не бракованными монетами. И по разности мы и можем судить в каком ящике фальшивки. Разность 10 — в первом мешке, разность 20 — во втором и так далее.

В финале турнира по шахматам встретились представители 6 воинских званий: майор, капитан, лейтенант, старшина, ефрейтор, причем разных специальностей

В финале турнира по шахматам встретились представители 6 воинских званий: майор, капитан, лейтенант,старшина,ефрейтор, причем разных специальностей : летчик,танкист,артеллирист,минометчик,сапер,связист. Определите специальность и звание каждого из шахматистов по следующим данным: 1:в первом туре лейтенант выиграл у летчика, майор у танкиста, а сержант у минометчика. 2:во втором туре капитан выиграл у танкиста 3:в третьем и четвёртых турах минометчик из за болезни не участвовал в турнире по этому свободными от игры оказались капитан и ефрейтор 4:в четвертом туре майор выиграл у связиста 5: победителями тура оказались лейтенант и майор а хуже всех выступил сапер

  • Это задание можно легко решить с помощью таблицы!