--- PascalABC.NET 3.6.2 ---
//Без внятного ТЗ - Результат ХЗ (с) Конфуций, 488 год до Н.Э.
begin
var AvaiableTravels := new List<(string, integer)>(10);
var RawInput: array of string;
for var i := 1 to 10 do begin
RawInput := ReadString($'{i} Enter Travel info (Country:Price)').Split(':');
AvaiableTravels.Add((RawInput[0], integer.Parse(RawInput[1])));
end;
var TotalCost : integer;
var MaxCost: (string, integer) := AvaiableTravels.First;
var MinCost: (string, integer) := AvaiableTravels.Last;
AvaiableTravels.ForEach(p -> begin
TotalCost += p.Item2;
if p.Item2 > MaxCost.Item2 then MaxCost := p;
if p.Item2 < MinCost.Item2 then MinCost := p;
end);
Println($'Total Travel Cost: {TotalCost}',
$'Most expensive Travel: {MaxCost}',
$'Most poor travel: {MinCost}');
end.
Объяснение:
#include <iostream>
int main() {
using namespace std;
setlocale(LC_ALL, "Russian");
int N;
cout << "Введите размерность массива: ";
cin >> N;
int* A = new int[N];
for (int i = 0; i < N; i++)
{
cout << "Заполните [" << i + 1 << "] элемент: ";
cin >> A[i];
}
cout << endl;
for (int i = 0; i < N; i++)
{
cout << A[i] << " ";
}
int max_index = 0;
for (int i = 1; i < N; i++)
{
if (A[i] > A[max_index]) {
max_index = i;
}
}
cout << "\nНомер локального максимума: " << max_index + 1;
return 0;
}
№3 сложные для чтения человеком