Нужно написать программу в паскаль Определить, попадет ли точка М(х,у) с координатами, заданными с клавиатуры, в закрашенную фигуру. Составить программу, используя логические связки. ребят
Program Pr1; uses crt; var mas:array[1..15] of integer; i,max,min,b,v:integer; Begin clrscr; for i:=1 to 15 do mas[i]:=random(10); for i:=1 to 15 do write(mas[i]); max:=0; min:=100000; b:=0; for i:=1 to 15 do begin if mas[i]>max then max:=i; if mas[i]<min then min:=i; end; if max>min then for i:=min to max div 2 do begin v:=mas[max-b]; mas[max-b]:=mas[i]; mas[i]:=v; b:=b+1; end else for i:=max to min div 2 do begin v:=mas[min-b]; mas[min-b]:=mas[i]; mas[i]:=v; b:=b+1; end; writeln(); for i:=1 to 15 do write(mas[i]); end.
#include <conio.h>
#include <time.h>
using namespace std;
void main()
{
srand(time(NULL));
setlocale(0, "");
int arr[17];
int a, b, chet=0, nechet = 0;
cout << "Введите диапазон ." << endl << "Нижняя граница диапазона: "; cin >> a; cout << "Верхняя граница диапазона: "; cin >> b; cout << endl;
for (int i = 0; i < 17; ++i)
{
arr[i] = a + rand() % (b-a+1);
cout <<" "<<arr[i];
}
for (int i = 0; i < 17; ++i)
{
if (arr[i] % 2 == 0) chet++;
else nechet++;
} if (chet > nechet)
cout << " \n Четных больше";
else if (nechet>chet)
cout << "\n Нечетных больше";
else cout << "\n Одинаковое количество четных и нечетных";
_getch();
}
Program Pr1;
uses crt;
var mas:array[1..15] of integer;
i,max,min,b,v:integer;
Begin
clrscr;
for i:=1 to 15 do mas[i]:=random(10);
for i:=1 to 15 do write(mas[i]);
max:=0;
min:=100000;
b:=0;
for i:=1 to 15 do begin
if mas[i]>max then max:=i;
if mas[i]<min then min:=i;
end;
if max>min then for i:=min to max div 2 do begin
v:=mas[max-b];
mas[max-b]:=mas[i];
mas[i]:=v;
b:=b+1;
end
else for i:=max to min div 2 do begin
v:=mas[min-b];
mas[min-b]:=mas[i];
mas[i]:=v;
b:=b+1;
end;
writeln();
for i:=1 to 15 do write(mas[i]);
end.