Если возникнут вопросы или ошибки в ходе работы программы, пиши в комментариях.
<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (n,m):=ReadInteger2('Введите через пробел n и m:');
var a:=ArrRandom(10,n,m);
a.Println
end.
<u>Пример</u>
Введите через пробел n и m: -6 20
15 10 16 17 1 14 -4 19 1 18
Чтобы распечатать что-либо
#include <iostream>
using namespace std;
int main()
{
int input;
cin >> input;
if (input == 1){
cout << "Понедельник";
}else if (input == 2){
cout << "Вторник";
}else if (input == 3){
cout << "Среда";
}else if (input == 4){
cout << "Четверг";
}else if (input == 5){
cout << "Пятница";
}else if (input == 6){
cout << "суббота";
}else if (input == 7){
cout << "Воскресенье";
}
return 0;
}
Var i:integer ;begin writeln ('загадайте число ,умножте на 5,прибавте 8,умножте на 2 и введите что получилось '); readln(i);writeln (i div 10); end.