#include <iostream>
#define N 2
int main()
{
int i,j;
int A[N], B[N], C[N];
setlocale(LC_ALL, "Russian");
for (i = 0; i < N; i++)
std::cout << "Введите a" << i << ": ";
std::cin >> A[i];
std::cout << "Введите b" << i << ": ";
std::cin >> B[i];
std::cout << "Введите c" << i << ": ";
std::cin >> C[i];
}
for (i=0;i<N;i++)
for (j = i+1; j < N; j++)
if ((A[i]==A[j])&&(B[i] == B[j])&&(C[i] == C[j]))
std::cout << "Прямые " << i << "и " << j << " совпадают" << std::endl;
else if (-A[i] / B[i] == -A[j] / B[j])
std::cout << "Прямые " << i << " и " << j << " параллельны" << std::endl;
return 0;
Program mathlover12;
const
n = 6; {Количество элементов массива}
var
a:array[1..n] of integer;
s:string;
i,min,max: integer;
begin
s:=' -=Alphaeus=- ';
for i:=1 to 22 do begin write(s[i]); sleep(42) end;
{вводим элементы массива}
writeln; writeln('Введите ',n,' чисел:');
for i:=1 to n do read(a[i]);
{Ищем min и max}
min:=a[1];
max:=a[1];
for i:=2 to n do
if min>a[i] then min:=a[i];
if max<a[i] then max:=a[i];
end;
{Выводим произведение min и max}
writeln; writeln;
writeln('Произведение min и max равнo ',min*max);
end.
#include <iostream>
#define N 2
int main()
{
int i,j;
int A[N], B[N], C[N];
setlocale(LC_ALL, "Russian");
for (i = 0; i < N; i++)
{
std::cout << "Введите a" << i << ": ";
std::cin >> A[i];
std::cout << "Введите b" << i << ": ";
std::cin >> B[i];
std::cout << "Введите c" << i << ": ";
std::cin >> C[i];
}
for (i=0;i<N;i++)
for (j = i+1; j < N; j++)
{
if ((A[i]==A[j])&&(B[i] == B[j])&&(C[i] == C[j]))
std::cout << "Прямые " << i << "и " << j << " совпадают" << std::endl;
else if (-A[i] / B[i] == -A[j] / B[j])
std::cout << "Прямые " << i << " и " << j << " параллельны" << std::endl;
}
return 0;
}
Program mathlover12;
const
n = 6; {Количество элементов массива}
var
a:array[1..n] of integer;
s:string;
i,min,max: integer;
begin
s:=' -=Alphaeus=- ';
for i:=1 to 22 do begin write(s[i]); sleep(42) end;
{вводим элементы массива}
writeln; writeln('Введите ',n,' чисел:');
for i:=1 to n do read(a[i]);
{Ищем min и max}
min:=a[1];
max:=a[1];
for i:=2 to n do
begin
if min>a[i] then min:=a[i];
if max<a[i] then max:=a[i];
end;
{Выводим произведение min и max}
writeln; writeln;
writeln('Произведение min и max равнo ',min*max);
end.