#include <iostream>
#include <vector>
/*
Определить существуют ли в первом массиве такие два элемента,
что их сумма равна сумме каких-либо трёх элементов второго массива
*/
#define DEBUG // для себя.
int main()
{
int
size1,
size2;
std::cout << "Введите размер 1-го массива(вектора): " << std::endl;
std::cin >> size1;
std::cout << "Введите размер 2-го массива(вектора): " << std::endl;
std::cin >> size2;
int* arr1 = new int[size1];
int* arr2 = new int[size2];
for(int i = 0; i < size1; i++)//инициализируем значения первого массива с клавиатуры
std::cin >> arr1[i];
for(int i = 0; i < size2; i++)//инициализируем значения второго массива с клавиатуры
std::cin >> arr2[i];
int
sum1(0),//сумма двух элементов 1го массива
sum2(0);//сумма двух элементов 2-го массива
for(int i = 0; i < size1; i++)
{
for(int j = 1; j < size2-1; j++)
{
if(i == j) continue;
sum1 = arr1[i] + arr1[j];
for(int ii = 0; ii < size2; ii++)
{
for(int jj = 0; jj < size2; jj++)
{
for(int ff = 0; ff < size2; ff++)
{
if(ii == jj || jj == ff || ii == ff) continue;
sum2 = arr2[ii] + arr2[jj] + arr2[ff];
if(sum1 == sum2)
{
std::cout << "Существует." << std::endl;
#if defined DEBUG
std::cout << arr1[i] << " " << arr1[j] << std::endl;
std::cout << arr2[ii] << " " << arr2[jj] << " " << arr2[ff] << std::endl;
#endif
delete[] arr1;
delete[] arr2;
return 0;
}
}
}
}
}
}
std::cout << "Не существует." << std::endl;
delete[] arr1;
delete[] arr2;
return 0;
}
var a, b,c,k,d,e,g,h : integer;
var f : integer;
begin
writeln('Введите стоимости билета за проезд до первой, до второй и до конечной станции через пробел :');
readln(a,b,c);
writeln('Введите сколько рублей должна быть конечная выручка : ');
readln(k);
d := 10*a;
e := 20*b;
g := 20*c;
h := d+e+g;
f := h div k;
writeln(f, ' Рейсов нужно совершить нужно совершить.');
end.
Лог :
Введите стоимости билета за проезд до первой, до второй и до конечной станции через пробел :
1
1
1
Введите сколько рублей должна быть конечная выручка :
50
1 Рейсов нужно совершить нужно совершить.
const n=5;
var a:array[1..n,1..n] of integer;
i,j,k,max,stroka:integer;
begin
writeln('Исходная матрица:');
for i:=1 to n do
for j:=1 to n do begin
a[i,j]:=random(20)-10;
write(a[i,j],' ');
if j=n then writeln;
end;
stroka:=1;
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do begin
if max<a[i,j] then begin
max:=a[i,j];
stroka:=i;
end;
end;
k:=n;
for i:=stroka to n-1 do
for j:=1 to n do
a[i,j]:=a[i+1,j];
k:=k-1;
writeln('Без удаленной строки:');
for i:=1 to k do
for j:=1 to n do begin
write(a[i,j],' ');
if j=n then writeln;
end;
end.