1 Мбайт = 1024 Кбайт
0.3 Мбайт = 0.3*1024 Кбайт = 307.2 Кбайт
Type Massiv=array[1..100] of integer;
var
a,b:Massiv;
n,i,j,p:integer;
begin
randomize;
write('Ввод n=');
readln(n);
writeln('Нужно неубывание (1) или невозрастание (2)?');
readln(p);
if p=2 then p:=-1;
writeln('Массив:');
a[1]:=random(20)-5;
for i:=2 to n do a[i]:=a[i-1]+p*random(5);
write('(');
for i:=1 to n do write(a[i],' ');
write(')');
writeln;
i:=1; j:=0;
while i<n do
begin
if a[i]=a[i+1] then begin inc(j); b[j]:=a[i]; end;
while (i<n)and(a[i]=a[i+1]) do inc(i);
inc(i);
end;
writeln('Новый массив:');
for i:=1 to j do write(b[i]:4);
readkey
End.
Пример:
Ввод n=20
Нужно неубывание (1) или невозрастание (2)?
1
Массив:
(11 12 12 12 16 16 17 21 25 25 26 30 30 32 36 36 38 42 45 47 )
Новый массив:
12 16 25 30 36
1.
var
a : integer;
begin
read (a);
writeln (sqrt (a) * 4);
end.
2.
var
x : integer;
begin
read (x);
if (x mod 2 = 0) then writeln ('Четное')
else writeln ('Нечетное');
if (x mod 3 = 0) then writeln ('Делится на 3')
else writeln ('Не делится на 3');
end.
Правильно она называется - Операция взятия адреса (если это С++)
#include <iostream>
#include<conio.h>
using namespace std;
<span>void main() </span>
{
setlocale(0, "");
<span> int n; cout << "Введите количество аудиторий" << endl;cin >> n; </span>
<span>int* aud = new int[n]; </span>
<span>cout << endl << "Введите их вместимость" << endl; </span>
<span>for (int i = 0;i < n;++i) </span>
<span> cin >> aud[i]; </span>
int max = aud[0];
<span>int max_i = 0; </span>
<span>for (int i = 0;i < n;++i) </span>
{
<span> if (aud[i] > max) </span>
{
<span> max = aud[i]; </span>
<span> max_i = i; </span>
<span> } </span>
<span> } </span>
<span>cout << "Самая большая из них: " << max_i + 1 << " Вмещает: " << max << " человек. " << endl; </span>
_getch();
<span>}</span>