Произвести расчеты: номер чертежа номер операции деталей было выпущено всего333444555 50 185 50 *223344556 20 250 40 *111222333 10 145 70 *555222111 30 225 20 *минимальноезначение* * *заполнить последний столбец и последнюю строчку.вне таблицы вычислить максимальное значение в столбце «было» и среднее значение в столбце«выпущено».
1) Код программы;
#include <iostream>
#include <locale>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int *mas, x;
cout << "Введите последний элемент массива(X): ";
cin >> x;
mas = new int[x];
for (int i = x-1; i >= 0; --i)
mas[i] = i+1;
cout << "Массив:" << endl;
for (int i = 0; i < x; ++i)
cout << mas[i] << ' ';
}
2) Код программы;
#include <iostream>
#include <locale>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int *mas, n;
cout << "Введите N: ";
cin >> n;
mas = new int[n];
for (int i = 0; i < n; ++i)
mas[i] = pow(2, i+1);
cout << "Массив:" << endl;
for (int i = 0; i < n; ++i)
cout << mas[i] << ' ';
}
1:
program prog;
var i,n,s,a:integer;
var chk:boolean;
begin
chk:=False;
s:=1;
write('Введите количество вводимых чисел: '); readln(n);
for i:=1 to n do
begin
write('Введите ', i, '-е число: '); readln(a);
if i mod 2 = 0 then
begin
s:=s*a;
chk:=True;
end;
end;
if chk = False then s:=0;
write('Произведение чётных членов введённой последовательности равно ', s);
end.
2:
program fib;
var
F1,F2,n,i :Integer;
begin
write('Введите количество чисел Фибоначчи: '); readln(n);
F1:=1;
F2:=1;
For i:=1 to n do
begin
if i>2 then
begin
F1:=F1+F2;
F2:=F1-F2;
end;
write(F1, ' ');
end;
end.