I=7.5 кбайт
К=7680
N-?
___________
N=2i
I=K*i
i=I\K
i=61440\7680=8
Uses crt;
const n=10;
var a: array [1..n] of integer;
x,min:integer;
begin
for x:=1 to n do begin
write('a[',x,']:');
readln(a[x]);
if a[x]>0 then min:=x;
end;
for x:=1 to n do
if (a[x]>0) and (a[x]<a[min]) then min:=x;
writeln;
write('a[',min,']:',a[min]);
<span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,1,10000); a.Println;
a:=a.Where(x->not ((x mod 10<>0) and (x mod 10).IsEven
and (x mod (x mod 10)=0))).ToArray;
a.Println
end.
<u>Пример</u>
1266 6274 1359 3481 9554 324 1546 3063 8166 1562
6274 1359 3481 9554 1546 3063
F1a2.p1
sf2a2.p3
faaa.po
flag.pik
flag.png
*- любой символ, в том числе и пустой
? - один символ
#include<stdio.h>
int main(){
long double n;
scanf("%Lf",&n);
printf("%s\n",n<0?"negative":"positive");
return 0;
}