Готовий код нужно переделать под функцию вас) //Завдання 2
#include
#include
#include
#include
int main()
{
setlocale(LC_CTYPE, "ukr");
const int n = 10;
int a, b, min, minI, sum = 0, * x = &a, * y = &b, * S = ∑, * M = &min, * MI = &minI, * MAS = (int*) new int[n], * mas1 = (int*) new int[n];
delete MAS;
delete mas1;
printf("Введiть iнтервал послiдовностi [a; b]: ");
scanf("%i %i", &(*x), &(*y));
printf("Згенерованi елементи масиву: ");
for (int i = 0; i < n; i++)
{
*(MAS + i) = rand() % (*y - *x + 1) + *x;
printf("%d ", *(MAS + i));
if (abs(*(MAS + i)) <= min)
{
*M = abs(*(MAS + i));
*MI = i;
}
}
int j = 0;
for (int i = 0; i < n; i++)
{
if (*(MAS + i) < 0)
{
*(mas1 + j) = i;
j++;
}
}
for (int i = *(mas1); i < n; i++)
{
*S += *(MAS + i);
}
printf("\nНомер найменшого числа за модулем: %d", *MI + 1);
printf("\n Сума елементiв масиву, розташованих пiсля першого від'ємного елемента: %d", *S);
delete[] MAS;
delete[] mas1;
return 0;
}
a=массив(10..50);
max:=a[1]'
min:=a[1];
n_min:=0;
n_max:=0;
k:=0;
i:=10;
пока i<=50 делай
нц
если a[i]>max то
нц
max:=a[i];
n_max:=i;
кц
если a[i]<min то
нц
min:=a[i];
n_min:=i;
кц
если (i mod 2)==0 то
sum:=sum+a[i];
k:=k+1;
кц
srednee_znachenie:=sum/k;
//
var
a:array(10..50) of integer;
max,min,n_min,n_max,k,i,sum:integer;
sr:float;
begin
max:=a[1];
min:=a[1];
for i:=10 to 50 do
begin
if a[i]>max then
begin
max:=a[i];
n_max:=i;
end;
if a[i]<min then
begin
min:=a[i]
n_min:=i;
end;
if ((i mod 2)=0) then
begin
k:=k+1;
sum:=a[i]+sum;
end;
end;
end;
sr:=sum/k;
end.
function BinToOct(s:string):string;
// переводит двоичную триаду в восьмеричную цифру
begin
case s of
'000':Result:='0';
'001':Result:='1';
'010':Result:='2';
'011':Result:='3';
'100':Result:='4';
'101':Result:='5';
'110':Result:='6';
'111':Result:='7';
end
end;
begin
var s2:=ReadlnString('Введите целое двочное число');
var k:=s2.Length mod 3;
if k<>0 then s2:=(3-k)*'0'+s2; // дополнить до кратной 3 длины
var s8:='';
for var i:=1 to s2.Length div 3 do
s8:=s8+BinToOct(Copy(s2,3*i-2,3));
Writeln(s8);
end.
Пример
Введите целое двочное число 10101100001
2541