Тип файла Кукла.doc текстовый
var n,i,max:integer;
a:array[1..10000] of integer;
begin
randomize;
writeln('Введите кол.натур. чисел: ');
read(n);
for i:=1 to n do begin
a[i]:= random(n*n);
write(a[i],' ');
//read(a[i]); //Если нужен ввод с клавиатуры
end;
writeln;
max:=a[1];
for i:=1 to n do begin
if a[i]>= max then
begin
max:=a[i];
end;
end;
writeln('Наибольшее число:', max);
end.
//Microsoft (R) C/C++ Optimizing Compiler Version 19.00.23506 for x64
#include <iostream>
class A
{
public:
typedef short int s_int;
constexpr A(const s_int &val) : value(val)
{
}
constexpr s_int operator+(const A &a) const noexcept
{
return value + a.get();
}
constexpr s_int get() const noexcept
{
return value;
}
private:
s_int value;
};
int main()
{
A a = 10;
A b = 15;
std::cout << a + b;
}
Progtam asd;
Uses crt;
Var a,n,s:integer;
begin
readln (n);
for a:=3 to n do
s:=a+s;
end.