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

Сформировать массив содержащий 15 элементов с датчика случайных чисел . получите новый массив каждый элемент которого равен удвоенному соответствующиму элементу исходного массива

👇
Ответ:
Pilulkin112
Pilulkin112
29.07.2021
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(15,-50,50); a.Println;
  var b:=a.Select(t->2*t).ToArray; b.Println
end.

Пример
28 -22 -43 -36 -20 -21 36 -26 48 25 -31 -29 8 -35 17
56 -44 -86 -72 -40 -42 72 -52 96 50 -62 -58 16 -70 34
4,4(35 оценок)
Ответ:
1303081216
1303081216
29.07.2021
Const Sz = 100; // Размер массива

var
a,b: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
i: integer;

begin
N := 20;
for i:=1 to N do begin
a[i] := Random(100);
b[i]:=a[i]*2;
writeln('Элементы массива: ');
for i:=1 to N do
writeln(a[i],' ',b[i]);
end.
4,5(45 оценок)
Открыть все ответы
Ответ:
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  var (cost, t, k) := (Arr(15, 70, 125, 230, 440), Arr(1, 5, 10, 20, 60), new integer[5]);
  var n := ReadInteger('n->');
  for var i := 4 downto 0 do
  begin
    k[i] := n div t[i];n := n mod t[i];
  end; 
  if k[0] * cost[0] >= cost[1] then begin k[0] := 0;inc(k[1]); end;
  if k[0] * cost[0] + k[1] * cost[1] >= cost[2] then 
  begin
    k[0] := 0;k[1] := 0;inc(k[2]); 
  end;
  if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] >= cost[3] then 
  begin
    k[0] := 0;k[1] := 0;k[2] := 0;inc(k[3]);
  end;
  if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] + k[3] * cost[3] >= cost[4] then 
  begin
    k[0] := 0;k[1] := 0;k[2] := 0;k[3] := 0;inc(k[4]); 
  end;
  
  for var i := 0 to 4 do WritelnFormat('{0} билет(ов)- {1} штук(а)', t[i], k[i]);
end.

Пример(1):
n-> 37
1 билет(ов)- 0 штук(а)
5 билет(ов)- 0 штук(а)
10 билет(ов)- 0 штук(а)
20 билет(ов)- 0 штук(а)
60 билет(ов)- 1 штук(а)

Пример(2):
n-> 35
1 билет(ов)- 0 штук(а)
5 билет(ов)- 1 штук(а)
10 билет(ов)- 1 штук(а)
20 билет(ов)- 1 штук(а)
60 билет(ов)- 0 штук(а)
4,8(64 оценок)
Ответ:
artichdok7p08ovo
artichdok7p08ovo
29.07.2021

специалист сельского хозяйства с высшим образованием, обладающий всесторонними знаниями в области агрономии.

уличный танец, одно из течений хип-хоп культуры.

непродолжительная по времени художественно составленная последовательность кадров.

единица измерения расстояния в некоторых европейских неметрических системах мер

светозащитные устройства, состоящие из вертикальных или горизонтальных пластин.

морская рыба семейства камбаловые.

ехнические приёмы получения движущихся изображений, иллюзий движения и/или изменения формы объектов (морфинг) с нескольких или множества неподвижных изображений и сцен.

сладкое блюдо русской кухни.

универсальный прил. 1) Охватывающий всё или многое; всеобъемлющий. 2) Обладающий разными знаниями, навыками; разносторонний. 3) Выполняющий разнообразные функции.

 

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