Const
n=10;
var
a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
Write('Исходный массив: ');
k:=0;
for i:=1 to n do
begin
a[i]:=Random(51)-25;
Write(a[i],' ');
if (a[i]>0) and (a[i] mod 2=0) then Inc(k)
end;
Writeln;
Writeln('Количество четных положительных чисел равно ',k)
end.
Контрольный прогон
Исходный массив: 6 -13 -13 -19 -18 -10 -18 8 -17 -4
Количество четных положительных чисел равно 2
Var i,n,j,m:integer;
mass:array[1..100] of integer;
begin
read(n);
for i:=1 to n do
read(mass[i]);
for i:=n-1 downto 1 do
for j:=1 to i do
if mass[j]>mass[j+1] then
begin
m:= mass[j];
mass[j]:= mass[j+1];
mass[j+1]:= m;
end;
for i:=1 to n dowrite(mass[i]:5);
end. <span> </span>
#include <iostream>
#include <time.h>
using namespace std;
int main()
{
srand(time(NULL))<span>;</span>
int mas[1000];
int n;
cin>>n;
for(int i=0;i<n;i++)
{
mas[i]=(rand()%16)-10;//генерация массива
cout<<mas[i]<<" ";//вывод массива
}
return 0;
}
4375.514(10)=4*10^3+3*10^2+7*10^1+5*10^0+5*10^(-1)+1*10^(-2)+4*10^(-3)
Р.S. "^" - это степень
<span>Триста восемьдесят девять миллиардов триста шестьдесят пять миллионов четыреста две тысячи двести один.</span>