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

Question

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

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

Задать свой вопрос

Вован Ярушков
Информатика
2019-09-10 05:49:30
0
2

2 ответа

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Почему большая часть населеничя Южной Америки беседует на испнском языке?

Мишка Мишка как не постыдно! Вылезай из-под комода. поставить знаки препинания

Как найти спряжение? Пошагово!

Два пешехода двигались с схожей скоростью. Один прошел 20км, а иной-12.

осмотри позвоночник из каких отделов он состоит??

ежик и лисица изложение

Составьте и запишите предложения со словами ЯРЧЕ, Благовиднее, УМНЕЕ так, чтоб

в треугольнике АВС АВ=10см ВС=8 см АС=6см,найдите углы

для чего нужна геометрия

Злата Шебуева · Answer 1 · 2019-09-10 05:51:56+3:00

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программка не работает, обновите версию!

begin
var a:=ArrRandom(15,-50,50); a.Println;
var k:=ReadInteger('k=');
a.Transform(b-gt;b+k); a.Println;
end.

Пример
17 6 -14 24 -39 17 39 9 -19 -7 -25 18 -37 -32 -43
k= 13
30 19 -1 37 -26 30 52 22 -6 6 -12 31 -24 -19 -30

Данил Алямкин · Answer 2 · 2019-09-10 05:54:01+3:00

Var
A:array[1..15] of integer;
i,B:integer;
Begin
WriteLn('Введите целое число');
ReadLn(B);
For i:= 1 to 15 do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ')
    End;
WriteLn;
For i:= 1 to 15 do
    Begin
    A[i]:=A[i]+B;
    Write(A[i],' ')
    End;

End.

О проекте

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

Добро пожаловать!