Program test; uses utils; var n,i,sum,time:longint; flag:boolean; begin readln(n); if n<2 then flag:=false;{Единица - не простое число} if n=2 then flag:=true;{2 - простое} if (n>2) and (n mod 2 <> 0) then begin{ после двойки простые числа только нечетные} for i:=1 to n do begin{проверяем что бы было только 2 делителя} sum:=sum+1; end; if sum=2 then flag:=true; end else flag:=false; if flag then writeln('Число простое') else writeln('Число НЕ простое'); time:=milliseconds; writeln('Времени затрачено ',time:10,' ms.'); end. Все проверки сделаны для сокращения времени работы программы.
1)program test; var a:array[1..12] of integer; i,min:integer; begin for i:=1 to 12 do begin readln(a[i]); a[i]:=abs(a[i]); if i=1 then min:=a[i] else if a[i]<min then min:=a[i]; end; writeln(min); end. 2) uses Crt ; var A : array [ 1 .. 100 ] of integer ; c : integer ; i , j , N : ShortInt ; begin ClrScr ; Write ( 'Количество элементов массива = ' ) ; ReadLn ( N ) ; WriteLn ( 'Ввод массива' ) ; for i := 1 to N do Read ( A [ i ] ) ;
A[i]:=abs(A[i]); WriteLn ; //Сортировка пузырьком// for i := 1 to N - 1 do begin for j := N downto i + 1 do begin if A [ j ] < A [ j - 1 ] then begin c := A [ j ] ; A [ j ] := A [ j - 1 ] ; A [ j - 1 ] := c ; end ;
uses utils;
var
n,i,sum,time:longint;
flag:boolean;
begin
readln(n);
if n<2 then flag:=false;{Единица - не простое число}
if n=2 then flag:=true;{2 - простое}
if (n>2) and (n mod 2 <> 0) then begin{ после двойки простые числа только нечетные}
for i:=1 to n do begin{проверяем что бы было только 2 делителя}
sum:=sum+1;
end;
if sum=2 then flag:=true;
end
else flag:=false;
if flag then writeln('Число простое') else writeln('Число НЕ простое');
time:=milliseconds;
writeln('Времени затрачено ',time:10,' ms.');
end.
Все проверки сделаны для сокращения времени работы программы.
var
a:array[1..12] of integer;
i,min:integer;
begin
for i:=1 to 12 do begin
readln(a[i]);
a[i]:=abs(a[i]);
if i=1 then min:=a[i]
else if a[i]<min then min:=a[i];
end;
writeln(min);
end.
2)
uses Crt ;
var
A : array [ 1 .. 100 ] of integer ;
c : integer ;
i , j , N : ShortInt ;
begin
ClrScr ;
Write ( 'Количество элементов массива = ' ) ;
ReadLn ( N ) ;
WriteLn ( 'Ввод массива' ) ;
for i := 1 to N do
Read ( A [ i ] ) ;
A[i]:=abs(A[i]);
WriteLn ;
//Сортировка пузырьком//
for i := 1 to N - 1 do begin
for j := N downto i + 1 do begin
if A [ j ] < A [ j - 1 ]
then
begin
c := A [ j ] ; A [ j ] := A [ j - 1 ] ; A [ j - 1 ] := c ;
end ;
end;
end;
for i:=n-2 to n do writeln(A[i]);
end .