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

Задано целое p. напишите программу поиска элемента со значением p в целочисленном массиве из n элементов. учтите случай, когда элемента со значением p в массиве нет.

👇
Ответ:
Smpl
Smpl
26.12.2022
PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (n,p):=ReadInteger2('Введите n и p:');
  var a:=ArrRandom(n,-99,99); a.Println;
  var i:=a.FindIndex(t->t=p);
  if i=-1 then Writeln('Нет элемента со значением ',p)
  else Writeln($'Элемент номер {i+1} имеет значение {p}')
end.
4,6(48 оценок)
Ответ:
Нафунька
Нафунька
26.12.2022
p = int(input('p = '))
import random
mas = [random.randint(0,100) for i in range(0,100)]
if p in mas:
----print("Число ",p,'є в масиве!')
else:
----print("Число ",p,'НЕМА в масиве!')

Задано целое p. напишите программу поиска элемента со значением p в целочисленном массиве из n элеме
4,6(93 оценок)
Открыть все ответы
Ответ:
Kasha26336
Kasha26336
26.12.2022

program Multi3;

var

 A: array [1..3] of Double;

 i: Integer;

 p: Double;

 b: Boolean;

begin

 Randomize;

 Write ('Исходные числа:');

 WriteLn;

 for i := 1 to 3 do begin

   A [i] := Random (4000) / 1000 - 1;  // заполняем числами, чтоб были и положительные и отрицательные

   Write (A[i] :10 :3, ' ');

 end;

 b := False;

 p := 1;

 for i := 1 to 3 do begin

   if Abs (A [i]) < 1 then begin

     b := True;    // включаем флаг, если найдено хотя бы одно подходящее число

     p := p * A [i];

   end;

 end;

 WriteLn;

 if b then

   WriteLn ('Произведение = ', p :10 :3)

 else

   WriteLn ('Произведение не определено.');

 ReadLn;

end.

4,4(63 оценок)
Ответ:
Kirillastrovskiy
Kirillastrovskiy
26.12.2022
Задание 4

4 байт V 24 бит ⇒ 4 · 8 бит V 24 бит ⇒ 32 бит > 24 бит

1000 бит V 1 килобайт ⇒ 1000 бит < 1 · 1024 байт

250 байт V 0.25 килобайт ⇒ 250 байт V 1/4 · 1024 ⇒ 250 байт < 256 байт

1 мегабайт V 1000 килобайт ⇒ 1024 килобайт > 1000 килобайт

8192 бит V 1 килобайт ⇒ 8192 бит > 1024 бит

Задание 5

8 килобайт = 8 · 1024 байт = 8192 байт

8 байт = 8 · 8 бит = 64 бит

64 килобайт = 64 / 1024 мегабайт = 0.06 мегабайт

1024 мегабайт = 1 · 1024 гигабайт

32 мегабайт = 32 · 1024 килобайт = 32768 килобайт

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