Const n=10;
var a:array [1..n] of integer;
i,j,k,l:integer;
begin
{создание и вывод массива}
for i:=1 to n do
begin
a[i]:=random(21)-10;
write (a[i],' ');
end;
writeln;
{сортировка массива}
for j:=1 to n do
for i:=1 to n-1 do
if a[i]>a[i+1] then
begin
k:=a[i];
a[i]:=a[i+1];
a[i+1]:=k;
end;
{Удаление нулей}
k:=0;
while k<>n do
begin
k:=k+1;
if a[k]=0 then
begin
l:=l+1;
for i:=k to n-1 do
a[i]:=a[i+1];
end;
end;
{Вывод массива}
for i:=1 to n-l do
write (a[i],' ');
<span>end.</span>
//прога на Pascal`e
var
N : uint64;
K : real;
begin
write ('Введите кол-во ног: ');
readln (n);
write ('Введите отношение ног жуков к паукам: ');
readln (k);
if trunc (n/(k+1)) <> n/(k+1) then write ('Неверное условие!')
else
if trunc (n/(k+1)) mod 8 <> 0 then write ('Неверное условие!')
else write ('Жуков: ', n/(k+1)*k/6, ', пауков: ', n/(k+1)/8);
end.
Опрератор ввода:
Read (значение следующего данного считывается с этой же строчки);
Readln (значение следующего данного считывается с новой строчки)
Опрератор вывода:
Write (выводит информацию и оставляет курсор в той же строке)
Writeln ( выводит информацию и переводит курсор на следующую строку)
Writeln (...) (выводит пустую строку
#include <iostream>
#include <ctime>
#include <stdlib.h>
using namespace std;
int main()
{
srand(time(NULL));
int N = 10, A[N], Max = 1;
cout << "A:";
for(int i = 0; i < N; i++)
{
A[i] = rand() % 281 - 140;
cout << " " << A[i];
if (A[i] > A[Max]) Max = i;
}
cout << "\nMax = " << A[Max] << "["<<Max+1<<"]";
N = Max - 2;
if (N < 0) N = -N;
int B[--N];
for(int i = 2; i < Max; i++)
B[i-3] = A[i];
for(int i = 2; i > Max; i--)
B[i-2] = A[i];
cout << "\nB:";
for(int i = 0; i < N; i++)
cout << " "<< B[i];
}