МНЕ НУЖНО Как запустить компиляцию кода?Назови несколько событий, которые может инициировать пользователь в системе? Назови общие свойства компонентов? НУЖНО НУ
begin var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:'); Writeln('Вводите элементы построчно'); var t:=ReadMatrInteger(m,n).ElementsWithIndexes.MaxBy(x->x[0]); Writeln('Максимальный элемент A[',t[1]+1,',',t[2]+1,']=',t[0]) end.
Пример Количество строк и столбцов в массиве: 3 4 Вводите элементы построчно 5 -6 0 9 12 7 12 0 -8 23 6 20 Максимальный элемент A[3,2]=23
№3
begin var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println; Writeln('Сумма положительных элементов равна ',a.Where(x->x>0).Sum); Writeln('Количество отрицательных элементов равно ',a.Where(x->x<0).Count); Writeln('Количество нулевых элементов равно ',a.Where(x->x=0).Count); end.
Пример n= 18 -16 -15 -20 -20 17 2 -3 13 15 -11 -10 -6 0 -5 10 0 20 10 Сумма положительных элементов равна 87 Количество отрицательных элементов равно 9 Количество нулевых элементов равно 2
setlocale(LC_ALL, "rus"); do { system("cls"); for (int i(0); i < 3; i++) { for (int j(0); j < 3; j++) { table[i][j] = char('1' + i * 3 + j); } } cout << "\t\t*** крестики нолики ***\n\n"; cout << "\tПравила:\n"; cout << "\tиграют два игрока на поле 3х3\n"; cout << "\tпобеждает тот кто составит выигрышную комбинацию\n";
cout << "\n\tДля хода нажмите на цифру ячейки поля\n"; cout << "\tВведите Имя 1-го. игрока за X: ", cin.getline(nam1, 30); cout << "\tВведите Имя 2-го. игрока за 0: ", cin.getline(nam2, 30); int i = 0; bool L = false, Result; do { ПерерисовкаИгровогоПоля(); if (L) cout << "Вы вели неверные данные!"; L = !input((_getch() - '0')); Result = win(); } while (!Result && i < 9); //system("cls"); ПерерисовкаИгровогоПоля(); if (Result) { if (xod) cout << "\n\n\tПобедил 0 " << nam2 << endl; else cout << "\n\n\tПобедил X " << nam1 << endl; } else cout << "\tНичия!! \n";
cout << "\tВыберите действие: " << "\n\n"; cout << "\t1 - Пройти задачу повторно " << "\n\n"; cout << "\t( Нажмите: 0 Для завершения программы. )" << "\n";
// Внимание! Если программа не работает, обновите версию!
№1
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Наименьший элемент равен ',a.Min)
end.
Пример
n= 17
-34 -4 -16 50 -12 -13 -40 -10 4 1 46 -46 2 -13 4 -4 20
Наименьший элемент равен -46
№2
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('Вводите элементы построчно');
var t:=ReadMatrInteger(m,n).ElementsWithIndexes.MaxBy(x->x[0]);
Writeln('Максимальный элемент A[',t[1]+1,',',t[2]+1,']=',t[0])
end.
Пример
Количество строк и столбцов в массиве: 3 4
Вводите элементы построчно
5 -6 0 9
12 7 12 0
-8 23 6 20
Максимальный элемент A[3,2]=23
№3
begin
var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
Writeln('Сумма положительных элементов равна ',a.Where(x->x>0).Sum);
Writeln('Количество отрицательных элементов равно ',a.Where(x->x<0).Count);
Writeln('Количество нулевых элементов равно ',a.Where(x->x=0).Count);
end.
Пример
n= 18
-16 -15 -20 -20 17 2 -3 13 15 -11 -10 -6 0 -5 10 0 20 10
Сумма положительных элементов равна 87
Количество отрицательных элементов равно 9
Количество нулевых элементов равно 2