Program P_1; {Создать массив из 30 элементов, найти сумму и произведение элементов, минимальный и максимальный элемент массива, программу выполнить в Pascal ABC}
Const n=30;
Var m: array[1..n] of real;
Var i,j: integer;
Var S,P:real;
Var min,max: real;
begin
writeln ('ввод массива m из ',n,' элементов:');
for i:=1 to n do
read(m[i]);
for j:=1 to n do
begin
write('m[',j,']='); writeln(m[j]);
end;
S:=0;
for i:=1 to n do
S:=S+m[i];
writeln('Сумма всех элементов массива =',S);
P:=1;
for i:=1 to n do
P:=P*m[i];
writeln('Произведение всех элементов массива =',P);
min := m [1];
for i := 1 to n do
if m[i] < min then
min := m[i];
writeln ('Минимальный элемент массива ', min);
max := m [1];
for i := 1 to n do
if m[i] > max then
max := m[i];
writeln ('Макимальный элемент массива ', max);
end.
//FIRST
#include <iostream>
using namespace std;
int main()
{
int n1;//Первый элемент
cin>>n1;
int step;//Шаг прогрессии
cin>>step;
int quantity;//Какой элемент найти
cin>>quantity;
cout<<n1+ (quantity-1)*step;
return 0;
}
//
//SECOND
//Использовал STL
#include <iostream>
#include <ctime>
#include <cstdlib>
#include <algorithm>
#include <vector>
using namespace std;
int main()
{
srand(time(NULL));
int n;
cin>>n;
vector<int>arr(n);
for(int i = 0;i<n;i++){
arr[i]=rand()%100;
}
sort(arr.begin(), arr.end());
cout<<arr[n-1];
return 0;
}
//4 - X3
инструментальные программы - для разработки новых программ
прикладные программы - для решения задач пользователя