// PascalABC.NET 3.2, сборка 1381 от 04.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var a,b,h:real; Write('Введите начальное значение, конечное и шаг: '); Read(a,b,h); var n:=Trunc((b-a)/h)+1; for var i:=1 to n do begin var x:=a+(i-1)*h; var y:=(x>0) and (x<=2)?x*x+Cos(x):4/x; Writeln(x:0:3,' ',y:0:5) end end.
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Длина последовательности: '); var a:=(SeqRandom(n-1,0,1)+(-1)).ToArray; // последовательность 0 и 1 a.Println; if a.Where(x->x>=0).Distinct.Count>1 then Writeln('Есть отличающиеся элементы') else Writeln('Все элементы равны') end.
Примеры Длина последовательности: 4 1 1 1 -1 Все элементы равны
Длина последовательности: 5 0 1 1 0 -1 Есть отличающиеся элементы
program test;
const N = random();
var m: array [0.0 .. N] of integer;
var i : integer;
var min : integer;
begin
for i := 1 to N do
begin
m[i] = random();
end;
min:=1;
for i:=2 to N do
begin
if array[i]<array[min] then
min:=i;
writeln('минимальный элемент ', a[min]);
end;
end.