#include <iostream>
#include <clocale>
#include <cmath>
using namespace std;
void main()
{
setlocale(LC_CTYPE,"rus");
int x, sum=0;
cout<<"Введите переменную: ";
cin>>x;
for(int i=1; i<x;i++)
{
if(x%i==0)
sum+=i;
}
if(x==sum)
{cout<<"Это совершенное число"<<endl;}
else
{cout<<"Это несовершенное число"<<endl;}
<span>}</span>
Var a:array[1..15]of integer;
i,max:integer;
Begin
for i:= 1 to 15 do
a[i]:=random(100);
max:= a[1]+a[2];
for i:= 1 to 14 do
if max < a[i]+a[i+1] then
max := a[i]+a[i+1];
writeln(max);
End.
Посмотри в интернете много есть
I1 = M*N*i = 4500*50*60*8 = 108000000бит/8 = 13500000байт/1024 = 13184кБ/1024 = 12.9МБ
I2 = 6*3 = 18МБ
I = 12.9+18 = 30.9МБ
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var n,a,b:integer;
Read(a,b,n);
var mas:=ArrRandom(n,a,b); mas.Println;
var s:=mas.Where(x->x.IsEven and (x>0));
if s.Any then Writeln(s.Max)
else Writeln(-1)
end.
<u><em>Тестовые решения:</em></u>
-10 100 20
52 57 39 5 52 40 94 -2 -7 24 65 -6 22 77 2 41 48 83 19 69
94
-10 -2 8
-6 -9 -2 -8 -3 -9 -4 -7
-1