Паскаль. ввод с клавиатуры ввести массив а(n) вещественных чисел. все положительные элементы переписать в массив а1, найти в нем максимум и поставить его на первое место в а1. массивы а и а1 распечатать.
Var A, A1 :array [1..100] of real; max, preValue, pre :real; i, n :integer; begin read(n); max := A1[1]; for i := 1 to n do begin read(A[i]); if (A[i] > 0) then A1[i] = A[i]; if (A1[i] > max) then max := A1[i]; end; preValue := A[1]; A[1] := max; for i := 1 to n do begin pre := A[i]; A[i] := preValue; preValue := pre; end; for i := 1 to n do write(A[i], ' '); writeln(); for i := 1 to n do write(A1[i], ' '); end.
function summdel(x:integer):integer; //результат - сумма делителей х var k,sum:integer; begin sum:=0; for k := 1 to x div 2 + 1 do if x mod k = 0 then sum:= sum+k; summdel:=sum; end;
begin writeln('Введите границы a,b '); readln(a,b); maxsumm := 1; max := 1; for i := a to b do begin if summdel(i) > maxsumm then begin maxsumm:= summdel(i); max := i; end; end; writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max) end.
Для всех заданий воспользуемся формулой N=2^i? где N -количество цветов, а i -количество бит на 1 пиксель. Задача 1. N=2^4=16 цветов.
Задача 2. N=224=2^i, поскольку для кодирования 128 цветов необходимо 7 бит, а для кодирования 256 цветов -8 бит, выбираем большее число, то есть 8 бит или 1 байт.
Задача 3. 65536 это 2^16⇒требуется 16 бит или 2 байта.
Задача 4. 1. Узнаем общее количество пикселей 1280*1024=1310720 2. Полученное число умножаем на глубину цвета 1310720*32=41943040 бит = 41943040/8 = 5242880 байт = 5242880/1024 = 5120 кб =5120/1024 = 5 Мб ответ: 5 Мб
A, A1 :array [1..100] of real;
max, preValue, pre :real;
i, n :integer;
begin
read(n);
max := A1[1];
for i := 1 to n do begin
read(A[i]);
if (A[i] > 0) then A1[i] = A[i];
if (A1[i] > max) then max := A1[i];
end;
preValue := A[1];
A[1] := max;
for i := 1 to n do begin
pre := A[i];
A[i] := preValue;
preValue := pre;
end;
for i := 1 to n do
write(A[i], ' ');
writeln();
for i := 1 to n do
write(A1[i], ' ');
end.