var a: array[1..n] of real; i, j: integer; min, max: real; sum, product, harmonic: real;
begin {ввод массива} writeln('Данные массива:'); for i := 1 to n do begin a[i] := random(40) - 20; write(a[i], ' '); end; writeln();
{подсчет суммы и произведения и агригатов} sum := 0; for i := 1 to n do sum := sum + a[i]; writeln('average = ', sum / n);
{минимум и максимум} min := a[1]; for i := 1 to n do if min > a[i] then min := a[i]; writeln('min = ', min);
{подсчет суммы и произведения и агригатов} sum := 0; for i := 1 to n do if i mod 2 = 0 then {если нужен фильтр} sum := sum + a[i]; writeln('sum = ', sum); end.
схема и объяснение снизу
program ufhcn;
var x, y, a, i, b: real;
uses crt;
begin
clrscr;
writeln('вводи число 1');
readln(i);
writeln('вводи число 2');
readln(x);
if (x> =0) then writeln('все в порядке')
else writeln('не правильная цифра');
if (i> =1) and (i< =13)
then writeln('число входит в ряд', x*i> =a)
else writeln('не входит ряд');
writeln('води число 3');
readln(a);
if (a> =0) then writeln('вводи число 4');
readln(b);
if (b> =0) then writeln('находим первый y= ', a*x*(i*i*i)+b*sqrt(x*i));
if (b< 0) then writeln('находим второй y= ', (sin(x)/cos(x))*(a-(x*
end.
начало
вводим переменную i
вводим переменную x
если x> =0 то
если нет если да
то нет. то далее
ввели интервал в переменную i
если (i> =1) и (i< =12) то
если нет. если да
то нет решения. то есть решение
вводим число 3
если (а> =0) то
вводим число 4
если (b> =0) то
y1= a*x*(i*i*i)+b*sqrt(x*i))
если (b< 0) то
y2= ', (sin(x)/cos(x))*(a-(x*
конец
короче объясняю.
ввёл 4 переменных
сделал так чтобы все вводимые были больше нули или равны ему чтобы легче было.
ввёл интервал i от 1 до 12
остальное решает уравнение поле ввода 4 переменных, если что-то не устроило пиши разберусь
n = 25;
var
a: array[1..n] of real;
i, j: integer;
min, max: real;
sum, product, harmonic: real;
begin
{ввод массива}
writeln('Данные массива:');
for i := 1 to n do
begin
a[i] := random(40) - 20;
write(a[i], ' ');
end;
writeln();
{подсчет суммы и произведения и агригатов}
sum := 0;
for i := 1 to n do
sum := sum + a[i];
writeln('average = ', sum / n);
{минимум и максимум}
min := a[1];
for i := 1 to n do
if min > a[i] then min := a[i];
writeln('min = ', min);
{подсчет суммы и произведения и агригатов}
sum := 0;
for i := 1 to n do
if i mod 2 = 0 then {если нужен фильтр}
sum := sum + a[i];
writeln('sum = ', sum);
end.