Написано на языке C++.
Я проверил свой код. Он работает правильно!
#include <iostream>
using namespace std;
int main()
{
float a, b, c, y, use1, use2, use3, uset;
cout << "Введите значение a: " << endl;
cin >> a;
cout << "Введите значение b: " << endl;
cin >> b;
cout << "Введите значение c: " << endl;
cin >> c;
use1 = 5 * a * b * c;
use2 = b *= b;
use3 = c *= c;
uset = use2 / use3;
y = use1 + uset + b;
cout << "Результат: " << y << endl;
return 0;
}
Так как изначально в задании указано : "на любом известном вам языке программирования" - вот, держи на С.
#include <stdio.h>
#include <stdlib.h>
#include <locale.h>
#define N 100
int main()
{
setlocale(LC_ALL, "Rus");
int i, M;
float B[N], MIN;
printf(" Введите количество элементов массива (не больше 100) => ");
scanf("%d", &M);
if (M < 100)
{
for (i = 0; i < M; i++)
{
printf("Введите [%d] элемент массива =>", i);
scanf("%f", &B[i]);
}
for (i = 0; i < M; i++)
printf("%1.0f ", B[i]);
MIN=B[0];
for (int i=1; i<M; i++)
{
if (B[i]<MIN)
MIN=B[i];
}
printf ("\n\tМинимальное значение в массиве => %7.2f", MIN);
}
else
printf("Ошибка. Заданное число элементов массива слишком большое.");
return 0;
}
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
k:=0;
for i:=2 to n do
if a[i]=2*a[1] then k:=i;
if k>0 then writeln('k = ',k)
else writeln('Искомый элемент отсутствует');
end.
Пример:
21 15 6 25 0 39 13 15 0 14 26 20 42 38 39 46 24 45 35 49
k = 13