Program C21; uses Crt;const n = 30;var a : array[1..n] of integer; k, i, max : integer;beginfor i := 1 to n do beginwrite('vvedite ',i,' - iy element massiva - ');readln(a[i]);
end;k := 1;max := a[1] * a[2];
for i := 2 to n-1 do begin
if (a[i] * a[i + 1]) > max then begin
max := a[i] * a[i + 1];
k := i;
end;end;writeln(k);end.
Program zadacha1;
uses crt;
const N=5; //размер массива
var m:array[1..n] of integer;
i:integer;
Begin
Writeln('Исходный массив');
For i:= 1 to n do
//readln(m[i]); //для ручного ввода оставьте эту строку
begin // для
m[i]:=random(101)-50; // случайного
Writeln(m[i]); // эти
end; //
Writeln('Прямой вывод');
For i:=1 to n do
writeln(m[i]);
Writeln('Обратный вывод');
For i:=1 to n do
writeln(m[n+1-i]);
End.
Program zadacha2;
uses crt;
const N=5; // размер массива
var m:array[1..n] of integer;
i:integer;
Begin
Writeln('Исходный массив');
For i:= 1 to n do
//readln(m[i]); //для ручного ввода оставьте эту строку
begin // для
m[i]:=random(101)-50; // случайного
Writeln(m[i]); // эти
end; //
Writeln('Вывод');
For i:=1 to n do
if i mod 2 = 0 then writeln(m[i]);
End.
Program zadacha3;
uses crt;
const N=5; // размер массива
var m:array[1..n] of integer;
i:integer;
Begin
Writeln('Исходный массив');
For i:= 1 to n do
//readln(m[i]); //для ручного ввода оставьте эту строку
begin // для
m[i]:=random(101)-50; // случайного
Writeln(m[i]); // эти
end; //
Writeln('Вывод');
For i:=1 to n do
if (n+1-i) mod 2 <> 0 then writeln(m[n+1-i]);
End.
64х128 = 8,192 пикс. Выделенный объем делим на кол-во пикселей и получаем
число бит на пиксел. Т. е. , 3,072/8172=0.375 байта. Т. е. , примерно 3
бита. А 3 бита = 8 комбинаций (от 000 до 111). Посему - 8 цветов в
палитре.
857282-11010001010011000010