===== PascalABC.NET =====
function MinMax(a: array of integer): (integer, integer);
begin
var min := Abs(a[0]);
var max := min;
for var i := 1 to a.High do
if Abs(a[i]) < min then
min := Abs(a[i])
else if Abs(a[i]) > max then
max := Abs(a[i]);
Result := (min, max)
end;
begin
var M := MatrRandom(5, 5, -50, 50);
M.Println(4);
var F := M.ElementsWithIndices
.Where(p -> p[2] >= p[1])
.Select(p -> p[0])
.ToArray;
F.Println;
var r := MinMax(F);
Println('Min=', r[0], ' max=', r[1])
end.
#include <iostream>
#include <cstdlib>
using namespace std;
int main()
{
setlocale(LC_ALL,"russian");
int num;
cout << "Введите размер массива: ";
cin >> num;
int a[num];
int sum = 0;
cout << "Вводите элементы массива поочерёдно: " << endl;
for(int i = 0; i<num; i++)
{
cin >> a[i];
if(a[i]%5==0 && a[i]%2==0) // находим в массиве числа, кратные 5 и 2
{
sum = sum + 1;
}
}
cout << "Чётных чисел, кратных пяти и двум: " << sum << endl;
system("pause");
return 0;
}