#include <iostream>
int main()
{
setlocale(LC_ALL, "rus");
double r1, r2, r;
int connection;
std::cout << "r1=";
std::cin >> r1;
std::cout << "r2=";
std::cin >> r2;
do {
std::cout << "Выберите тип подключения (1-последовательно, 2 параллельно): ";
std::cin >> connection;
} while (connection != 1 && connection != 2);
if (connection == 1) r = r1 + r2;
else r = r1*r2/(r1 + r2);
std::cout << "Результат r=" << r;
}
var
a: array[1..1000] of real;
i, k, n, z: integer;
begin
writeln('введите число n: ');
readln(n);
writeln('введите число z: ');
readln(z);
writeln('введите ',n,' действительных чисел (каждое с новой строки): ');
for i : = 1 to n do
begin
readln(a[i]);
if a[i] > z then
begin
a[i] : = z;
k : = k + 1;
end;
end;
writeln('количество замен: ', k);
end.