Const n=20;
var a: array[1..n] of integer;
i, max, imax, min, imin : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(101)-50;
write(a[i],' ');
end;
writeln;
max:=a[1]; imax:=1; min:=a[1]; imin:=1;
for i:=2 to n do
begin
if a[i] > max then begin max:=a[i]; imax:=i; end;
if a[i] < min then begin min:=a[i]; imin:=i; end;
end;
writeln('max=',max,' min=',min);
a[imax]:=min; a[imin]:=max;
writeln('Измененный массив:');
for i:=1 to n do write(a[i],' '); writeln;
end.
Пример:
Исходный массив:
-20 6 40 -34 -31 48 1 -24 -35 24 23 8 -13 28 22 -38 26 35 -3 0
max=48 min=-38
Измененный массив:
-20 6 40 -34 -31 -38 1 -24 -35 24 23 8 -13 28 22 48 26 35 -3 0
//PascalABC.NET 3.0
function check(x: integer): boolean;
begin
var tmp := x * x;
Result := true;
repeat
if tmp mod 10 <> x mod 10 then Result := false;
tmp := tmp div 10;
x := x div 10;
until (x = 0) or not(Result);
end;
begin
var n := ReadInteger('Введите N:');
Range(1, n).Where(x -> check(x)).Select(x -> x.ToString + '*' + x.ToString + '=' + (x * x).ToString).Println(NewLine)
e<span>nd.</span>
1. 64х128=8,192 пикс. Выделенный объем делим на кол-во пикселей и получаем число бит на пиксел. Т.е., 3,072/8,172=0.375 байта. Т.е., примерно 3 бита. А 3 бита = 8 комбинаций (от 000 до 111). 8 цветов в палитре.
Подготовить тесто,нагреть сковороду,смазать маслом сковороду,разлить тесто по поверхности сковороды,круговыми движениями придать форму круга,поставить на огонь примерно на 30 секунд,перевернуть блин,перенести блин на тарелку,смазать блин маслом,посыпать сахаром блин,повторить.