var
X: array [1..10] of integer;
a,s,i: integer;
begin
randomize;
write('Хотите заполнить массив самостоятельно? (1) Или автоматически? (2)');
readln(s);
case s of
1: begin
writeln('Введите 10 элементов массива: ');
for i:= 1 to 10 do readln(X[i]);
a:=X[1];
for i:= 1 to 10 do
if a < X[i] then a:=X[i];
writeln('Максимальный элемент: ',a);
end;
2: begin
writeln('Массив: ');
for i:= 1 to 10 do
begin
X[i]:=random(101);
write(X[i]:4);
end;
writeln;
a:=X[1];
for i:= 1 to 10 do
if a < X[i] then a:=X[i];
writeln('Максимальный элемент: ',a);
end;
end;
<span>end. </span>
На 256 символьный алфавит необходимо 2^n=256, n=8 бит, или 1 байт.
4096 символов * 1 байт = 4096 байт
4096 / 1024 = 4 Кбайт
Type mas=Array [1...100] of integer;
var i,n,itre:integer;
a:mas;
begin
readln(n);
for i:=1 to n
do read(A[i]);
for i:=2 to n-1
do if (A[i]>A[i-1]) and (A[i]>A[i+1])
then itre:=i;
for i:=1 to itre-2
do writeln(A[i]);
end.
Ответ:
Это в паскаль? Если да то. y:=(x*x+5)/10
Var n,i:integer;
begin
for n:=2 to 99 do
begin
for i:=2 to 99 do
begin
if (n+i)=(n*i) then writeln(n,' ',i);
end;
end;
end.<span>
</span>