A2 = СУММ(A1:D1)/4 = (1 + 4 + 4 + 3)/4 = 3
B2 = B1 * D1 - C1 * 2 = 4 * 3 - 4 * 2 = 4
C2 = B1 * A2 - D1 - 6 = 4 * 3 - 3 - 6 = 3
D2 = C1 + C1/4 = 4 + 4/4 = 4 + 1 = 5
Итак, нужно найти диаграмму, на которой два элемента равны, еще один больше них примерно на 3, и последний примерно на столько же больше него. Это диаграмма 1.
Так как изначально в задании указано : "на любом известном вам языке программирования" - вот, держи на С.
#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;
}
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var c:=ArrRandomReal(12,-10,70).Println();
write(c.Where(x->(x>5.3) and (x<40.7)).Aggregate(Real(1),(x,y)->x*y));
end.
<span>// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017</span>
1)
begin
var x:=ReadInteger('Введите x->');
if x<3 then Writeln('y=',x+4)
else
if x>3 then Writeln('y=',x*x);
end.
Пример:
Введите x-> 2
y=6
2)
begin
var x:=ReadReal('Введите x->');
if x<4 then Writeln('y=',x*x:0:2)
else
if (x>4) and (x<5) then Writeln('y=',x+5:0:2)
else Writeln('y=',x*x*x:0:2);
end.
Пример:
Введите x-> 5
y=125.00