//PascalABC.NET 3.1 сборка 1219
begin
var a := ArrRandomInteger(ReadInteger('n ='), 760, 780);
a.Println;
Writeln('Max = ', a.Max, ' №', a.IndexMax + 1);
Writeln('Min = ', a.Min, ' №', a.IndexMin + 1);
Writeln('Avg = ', a.Average);
var d := ReadInteger('d =');
Writeln('Count(x > ', d, ') = ', a.Where(x -> x > d).Count);
a.Sort;
a.Println;
end.
1+2-3-4+5-6+7+8-9=1, если можно с "-..."
Линейная структура на языке<u>Pascal</u>
Нахождение расстояния
var V,S,t:real;
begin
readln(V,t);
S:=V*t;
writeln(S);
end.
Ветвление
var a,b:integer;
begin
readln(a,b);
if (a>b) then writeln('+++') else
writeln('---');
readln;
end.
Цикл
var i:integer;
begin
for i:=1 to 5 do writeln(i);
readln;
end.
Числа можно записывать в порядке неубывания:
211 можно представить как 21 и 1, 21 мы не можем, значит 211 не подходит.
1717 можно представить как 17 и 17. эти числа можно получить из 98 и 98, оно нам подходит.
1817 можно представить как 18 и 17, эти числа можно получить из 99 и 97, но оно нам не подходит так как числа записаны в порядке убывания а 817 мы не можем получить сложив две цифры.
1718 нам подходит, предыдущее число, но записанное в порядке неубывания, можно получить из чисел 99 и 97.
1719 нам не подходит, так как мы не можем получить 19 при сложении двух цифр.
219 нам не подходит так как должны быть числа либо 2 и 19, либо 21 и 9. 19 и 21 мы не можем получить при сложении двух цифр.
21 нам не подходит.
10 нам не подходит, так как одно из чисел должно будет быть равно нулю, а в условии двузначные числа.
Ответ: 2
Program N12345678901011121314;
uses crt;
const n=8;
var
e:array[1..n] of integer;
vid,nom,i: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Елементи масиву:');
randomize;
nom:=0; //номер 5-го елементу
vid:=0; // к-ть негативних елементів
for i:=1 to n do
begin
e[i]:=random(100)-50;
write (e[i]:5);
if e[i]<0 then
vid:=vid+1;
if (e[i]<0) and (vid = 5) then
nom:=i;
end;
writeln();writeln();
if nom<>0 then
writeln('Номер 5-го негативного елементу: ',nom)
else
writeln('Такого елемента немає');
end.
