// PascalABC.NET 3.0, сборка 1088
function InitA(n:integer):array of integer;
begin
Result:=ArrRandom(n,-31,45)
end;
procedure GetA(var a:array of integer);
begin
a:=InitA(ReadInteger('Количество элементов в массиве А: '));
end;
procedure PutM(c:char; a:array of integer);
begin
Writeln('*** Массив '+c+'[',a.Length,'] ***',#13#10,a);
end;
function FormB(a:array of integer):array of integer;
begin
Result:=Range(0,a.Length-1,2).Select(x->a[x]).ToArray
end;
function MinEl(a:array of integer):integer;
begin
Result:=a.Min
end;
begin
var mA:array of integer;
GetA(mA); PutM('A',mA);
var mB:=FormB(mA); PutM('B',mB);
Writeln('Минимальный элемент в массиве В равен ',MinEl(mB))
end.
<em><u>Тестовое решение:</u></em>
Количество элементов в массиве А: 15
*** Массив A[15] ***
[-22,0,-9,17,14,3,38,-18,-28,-17,28,13,1,1,26]
*** Массив B[8] ***
[-22,-9,14,38,-28,28,1,26]
Минимальный элемент в массиве В равен -28
1)Стандартные - Paint, Блокнот.
2)Офисные - Их очень много, но перечислю основные: "Microsoft Office", "Evernote", "iWork", "Microsoft Word"
3)Если честно, не понял что написано, отпиши в комментариях, и я напишу программы.
4)Развлекательные - Steam, Shazam, вообще их очень много, подумай сам.
5)Профессиональные - Visual Studio, Process Hacker 2, Cheat Engine, VMProtect, и ещё куча многих других
#include <iostream>
#include <cmath>
using namespace std;
int x,n;
double r;
int main()
{
r = 0;
cin >> n;
double *ptrarray = new double[n];
for (int i = 0; i < n; i++)
{
cin >> x;
ptrarray[i] = cos(2*x) + 3;
if (fmod(ptrarray[i],2) != 0
{
r=r*ptrarray[i];
}
}
cout << r;
return 0;
}
1) 1.начало
2.пока впереди есть свободная клетка
3.начало цикла
4.идти вперёд на 1 клетку
5.закрасить клетку
6.конец цикла
7.повернуться на 90 градусов против часовой стрелки
8.пока клетка!=клетке А повторить действия 2-7
9.конец.
2) 1.начало
2.пока впереди есть свободная клетка
3.начало цикла
4.идти вперёд на 1 клетку
5.закрасить клетку
6.конец цикла
7.повернуться на 90 градусов по часовой стрелке
8.пока впереди есть свободная клетка
9.начало цикла
10.идти вперёд на 1 клетку
11.закрасить клетку
12.конец цикла
13.повернуться на 90 градусов против часовой стрелки
14.пока клетка!=клетке А
15.начало цикла
16.идти вперёд
17.закрасить клетку
18.конец цикла
3)
начало
пока робот не напротив стены идти вперёд;
закрасить клетку
начало повтора
пока впереди под стеной есть клетки
начать цикл
идти вперёд
закрасить клетку
закончить цикл
повернуться на 90 градусов по часовой стрелке
пока впереди под стеной есть клетки
начать цикл
идти вперёд
закрасить клетку
закончить цикл
пока робот напротив стены
начало цикла
повернуться на 90 градусов по часовой стрелке
идти на 1 клетку вперёд
повернуться на 90 градусов по часовой стрелке
пока впереди под стеной есть клетки
начать цикл
идти вперёд
закрасить клетку
закончить цикл
повернуться на 90 градусов против часовой стрелки
идти на 1 клетку вперёд
повернуться на 90 градусов против часовой стрелки
пока впереди под стеной есть клетки
начать цикл
идти вперёд
закрасить клетку
конец цикла
конец цикла
повернуться на 90 градусов по часовой стрелке
пока впереди есть клетки идти вперёд
повернуться на 90 градусов по часовой стрелке
пока впереди есть клетки идти вперёд
повернуться на 90 градусов по часовой стрелке
пока робот не напротив стены идти вперёд;
закрасить клетку
пока робот напротив стены
начало цикла
пока впереди под стеной есть клетки
начать цикл
идти вперёд
закрасить клетку
закончить цикл
повернуться на 90 градусов по часовой стрелке
идти на 1 клетку вперёд
повернуться на 90 градусов по часовой стрелке
пока впереди под стеной есть клетки
начать цикл
идти вперёд
закрасить клетку
конец цикла
повернуться на 90 градусов против часовой стрелки
идти на 1 клетку вперёд
повернуться на 90 градусов против часовой стрелки
пока впереди под стеной есть клетки
начать цикл
идти вперёд
закрасить клетку
конец цикла
конец цикла
в 3-ем могла напутать