Здравствуйте исправить код паскаль Вот задание (номер 5) Вот то что у меня получилось Program 4; const x=1.2; var y,x,sum:real; i:integer; function prog(b,k:integer):real; begin sum:=1; for i:=k to b do sum:=sum*((k+x)/x); c:=sum; end; begin y:=c(3,6)+(2*(c(1,8)*c(1,8)))+x; write('y:= ', y:1:5); end.
Если удалить из костюма элемент брюки, то он уже не будет костюмом. Если удалить из автомобиля элемент колёса, то без колёс автомобиль не поедит. Если удалить из компьютера элемент процессор, то он не будет больше компьютером. Если удалить из городской телефонной сети элемент электричество в городе, то сеть не будет ловить. Если удалить из школы элемент учитель, то это не будет школой. Если удалить из государства Президента, то кто будет править государством? Сущ.:Костюм, автомобиль, компьютер,школа. Несущ.:Городск. телеф. связь, государство.
#include <iostream>
#include <time.h>
using namespace std;
int main()
{
srand(time(NULL));
setlocale(LC_CTYPE, "Russian");
int n, sum = 0, ind1 = 0, ind2 = 0, min, max;
cout << "Введите размер массива - ";
cin >> n;
int* a = new int[n];
cout << "Массив: ";
for (int i = 0; i < n; i++)
{
a[i] = -5 + rand() % 50;
sum += a[i];
cout << a[i] << " ";
}
cout << endl << "Сумма всех элементов: " << sum << endl;
min = a[0];
for (int i = 1; i < n; i++)
{
if (a[i] < min)
{
min = a[i];
ind1 = i;
}
}
cout << "Мин.эл. - " << min<< endl << "Его индекс - " << ind1 << endl;
max = a[0];
for (int i = 1; i < n; i++)
{
if (a[i] > max)
{
max = a[i];
ind2 = i;
}
}
cout << "Макс.эл. - " << max<< endl << "Его индекс - " << ind2 << endl;
delete []a;
return 0;
}