У исполнителя Калькулятор две команды: 1. прибавь 1 2. прибавь 2. Первая из них увеличивает число на экране на 1, вторая — на 2. Сколько различных чисел можно получить из числа 2 с программы, которая содержит не более 4 команд?
Var arr : array [1..30] of integer; i, number : integer; begin //Заполнение массива случайными числами for i := 1 to 30 do arr[i] := Random(10000) - 5000; //--- //Считывание номера элемента и проверка на соответствие условию write('Введите число: '); readln(number); if not (number in [1..30]) then begin write('Ошибка. Номер элемента выходит за границу массива'); Exit; end; //--- //Вывод массива с учётом условия for i := 1 to 30 do if arr[i] > arr[number] then write(arr[i], ' '); //--- end.
albina6580
05.10.2022
#include<iostream> #include<cstdlib> #include<ctime> #include<locale> #include<windows.h> using namespace std; int main() { setlocale(LC_ALL, "Russian"); srand(time(NULL)); const int n=12, m=12; int a[n][m]; int s = 0; for(int i=0;i<n;i++) { for(int j=0;j<m;j++) { a[i][j] = rand() % 2; if(a[i][j]) a[i][j] = rand()%100; else a[i][j] = rand()%50*(-2); cout << a[i][j] << ' '; } cout << '\n'; } cout << '\n'; int c; cout << "Введите номер столбца: "; cin >> c; for(int i=0; i < 12; i++) if(a[i][c] > 0) s++; cout << "Количество положительных чисел в столбце " << c << ": " << s << '\n'; system("pause"); }
arr : array [1..30] of integer;
i, number : integer;
begin
//Заполнение массива случайными числами
for i := 1 to 30 do
arr[i] := Random(10000) - 5000;
//---
//Считывание номера элемента и проверка на соответствие условию
write('Введите число: ');
readln(number);
if not (number in [1..30]) then
begin
write('Ошибка. Номер элемента выходит за границу массива');
Exit;
end;
//---
//Вывод массива с учётом условия
for i := 1 to 30 do
if arr[i] > arr[number] then
write(arr[i], ' ');
//---
end.