Содержавать документы и др приложения
не забываем - нумерация в массиве начинается с 0
var
d : array of integer := new integer[30];
n : integer := -1;
i : integer;
begin
d := arrRandom(30, -100, 100);
repeat
n += 1;
if d[n] > 0 then i += 1;
until (n = 29) or (i = 4);
writeln('массив: ', d);
writeln('четвертый положительный элемент массива d[', n, ']=', d[n]);
end.
//PascalABC.Net 3.2
begin
var a: array of integer;
setLength (a, readinteger('Введите размерность массива: '));
var count:=0;
for var i:=0 to length(a)-1 do a[i]:=readinteger ('Введите элемент: ');
for var i:=1 to length(a)-1 do if (a[i-1]*a[i])<0 then count+=1;
write ('Кол-во раз: ', count);
end.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function IsPrime(n:integer):boolean;
begin
if n<4 then Result:=True
else begin
var found:=(n mod 2=0);
var p:=3;
while (not found) and (sqr(p)<=n) do
begin found:=(n mod p=0); p+=2 end;
Result:=not found
end
end;
begin
var a:=ArrRandom(ReadInteger('n='),0,100); a.Println;
var primes:=a.Where(x->IsPrime(x)).ToArray;
primes.Sort;
primes.Println
end.
<u>Пример</u>
n= 17
33 23 56 58 32 2 5 72 68 59 89 30 17 40 44 21 23
2 5 17 23 23 59 89
145139142130142
слово - СЛОВО