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

begin
var (n,m):=ReadInteger2('Введите через пробел n и m:');
var a:=ArrRandom(10,n,m);
a.Println
end.

Пример
Введите через пробел n и m: -6 20
15 10 16 17 1 14 -4 19 1 18

0 0

3 года назад

Прочитать ещё 2 ответа

Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N. Проверьте алгоритм тр

Сергей25121963

var
n, i, sum: integer;
begin
read(n);
for i := 1 to n do sum := sum + i;
writeln(sum);
end.

0 0

4 года назад

В кодировке КОИ-8 каждый символ кодируется одним байтом.определите информационный объем сообщения из 30 символов в этой кодировк

DilPatt

1 символ - 1 байт => 30 символов - 30 байтов

0 0

4 года назад