ЯП: С++ | можно не писать std:: , если использовать пространство имен: using namespace std;
#include <iostream>
int main() {
const int SIZE = 10;
int regim, sum, max, count;
int arr[SIZE];
for (int i = 0; i < SIZE; i++)
{
std::cin >> arr[i]; // вводим элементы массива
std::cout << arr[i] << "\t"; // выводим массив в консоль
}
std::cin >> regim;
if ((regim > 0) && (regim < 4))
{
if (regim == 1)
{
for (int i = 0; i < SIZE; i++)
{
sum += arr[i]; // или sum = sum + arr[i];
}
std::cout << "Сумма элементов массива = " << sum << std::endl;
}
else if (regim == 2)
{
max = arr[0];
for (int i = 0; i < SIZE; i++)
{
if (max < arr[i])
max = arr[i];
}
std::cout << "Максимальный элемент в массиве = " << max << std::endl;
}
else
{
for (int i = 0; i < SIZE; i++)
{
if (arr[i] < 0)
count++;
}
std::cout << "Число отрицательных элементов в массиве = " << count << std::endl;
}
}
else
std::cout << "Доступен только 1-3 режим!" << std::endl;
return 0;
}
Const
n=30;
type
tys=array[1..n] of string;
Var
ars:tys;
i,j:integer;
s:string;
procedure sorts(var ars:tys;n1:integer);
Var
i,j:integer;
c:string;
begin
for i:=1 to n1-1 do
for j:=i to n1 do
if ars[i]>ars[j] then
begin
c:=ars[i];
ars[i]:=ars[j];
ars[j]:=c;
end;
end;
begin
readln(s);
j:=1;
while pos(' ',s)<>0 do
begin
for i:=1 to pos(' ',s) do
ars[j]:=ars[j]+s[i];
delete(s,1,pos(' ',s));
inc(j);
end;
ars[j]:=s;
sorts(ars,j+1);
writeln('Result=');
for i:=1 to n do writeln(ars[i]);
end.
Пример ввода:
панамка пена пенал паста параллелепипед подражатель пинать явный полиморфизм приведение паскаль тетрадь разум
Пример вывода:
панамка параллелепипед паскаль паста пена пенал пинать подражатель полиморфизм приведение разумтетрадь явный