#include <iostream>
#include <ctime>
#include <stdlib.h>
using namespace std;
int main()
{
srand(time(NULL));
int N = 10, A[N], Max = 1;
cout << "A:";
for(int i = 0; i < N; i++)
{
A[i] = rand() % 281 - 140;
cout << " " << A[i];
if (A[i] > A[Max]) Max = i;
}
cout << "\nMax = " << A[Max] << "["<<Max+1<<"]";
N = Max - 2;
if (N < 0) N = -N;
int B[--N];
for(int i = 2; i < Max; i++)
B[i-3] = A[i];
for(int i = 2; i > Max; i--)
B[i-2] = A[i];
cout << "\nB:";
for(int i = 0; i < N; i++)
cout << " "<< B[i];
}
Program a1;
var a,b,c,x,x1,x2,d:real;
begin
write('Введите а '); read(a);
write('Введите b '); read(b);
write('Введите c '); read(c);
begin
d:=sqr(b)-4*a*c;
if d<0 then
begin
write('Нет корней');
end
else
begin
if d=0 then
begin
x:=-b/(2*a);
write('x=' , x);
end
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
write('x1=',x1,'x2=',x2);
end;
end;
end;
end. <span> </span>
// PascalABC.NET 3.2, сборка 1488 от 21.06.2017
// Внимание! Если программа не работает, обновите версию!
№1
begin
var a:=ArrRandom(ReadInteger('n='),-5,5); a.Println;
Writeln('Количество различных злементов равно ',
a.Distinct.Count)
end.
Пример
n= 20
-1 -1 5 -3 0 5 5 -5 -2 -4 -1 -2 -2 -2 2 -2 -3 1 2 1
Количество различных злементов равно 9
№2
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('Вводите элементы построчно');
var t:=ReadMatrInteger(m,n).ElementsWithIndexes.MinBy(x->x[0]);
Writeln('Минимальный элемент A[',t[1]+1,',',t[2]+1,']=',t[0])
end.
Пример
Количество строк и столбцов в массиве: 3 4
Вводите элементы построчно
5 -11 0 9
12 7 -12 0
8 23 6 20
Минимальный элемент A[2,3]=-12
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(Range(2,2*ReadInteger('n='),2).Aggregate(BigInteger(1),(m,n)->m*n))
end.
<u>Пример</u>
n= 37
1891675820705153808241239602722999673157373132800000000
Const n =5;
var
a:array[1..n] of integer;
i,max:integer;
begin
writeln('Введите 1 элемент массива');
readln(a[1]); max:=a[1];
for i:=2 to n do begin
writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i]>max then max := a[i];
end;
writeln('Максимальный элемент массива равен ',max);
end