1. Создайте базу данных "Птицы и животные Казахстана'' 2. При формы создайте базу данных ''Области Казахстана'' с информацией об областных центрах, площади и населении.
program ; var A: array [-1000..1000] of integer; n, i, b : integer; begin writeln('Введите количество чисел'); readln(n); b:=0; for i := 1 to n do readln(A[i]); for i := 0 to (n) do b := b+ A[i]; write('Это сумма '); writeln(b); // Это сумма. b:=0; for i := 1 to (n) do begin if A[i] = 0 then b := b+1 end; write('Это количество нулей '); writeln(b) ;// это количество нулей b:= -1001; for i := 1 to (n) do begin if A[i] > b then b := A[i] end; write('Это максимальное число '); writeln(b); // Это максимальное число b:= 1001; for i := 1 to (n) do begin if A[i] < b then b := A[i] end; write('Это минимальное число '); writeln(b) // Это минимальное число end.
// PascalABC.NET 3.2, сборка 1346 от 25.11.2016 // Внимание! Если программа не работает, обновите её версию!
begin var n:=30; var a:=ArrRandom(n,-15,15); a.Println; var mx:=a[0]+a[n-1]; for var i:=2 to (n-1) div 2 do begin var s:=a[i]+a[n-i-1]; if s>mx then mx:=s end; Writeln('Максимальная из сумм сходящихся пар: ',mx); // сортировка выбором var j:=n-1; while j>0 do begin mx:=a[0]; var imx:=0; for var i:=1 to j do if a[i]>mx then begin mx:=a[i]; imx:=i end; a[imx]:=a[j]; a[j]:=mx; j-=1 end; a.Println end.
program ;
var
A: array [-1000..1000] of integer;
n, i, b : integer;
begin
writeln('Введите количество чисел');
readln(n);
b:=0;
for i := 1 to n do
readln(A[i]);
for i := 0 to (n) do
b := b+ A[i];
write('Это сумма ');
writeln(b); // Это сумма.
b:=0;
for i := 1 to (n) do
begin
if A[i] = 0 then
b := b+1
end;
write('Это количество нулей ');
writeln(b) ;// это количество нулей
b:= -1001;
for i := 1 to (n) do
begin
if A[i] > b then
b := A[i]
end;
write('Это максимальное число ');
writeln(b); // Это максимальное число
b:= 1001;
for i := 1 to (n) do
begin
if A[i] < b then
b := A[i]
end;
write('Это минимальное число ');
writeln(b) // Это минимальное число
end.