const n=50; var a:array[1..n] of integer; m,i,j:integer; begin randomize; for i:=1 to n do begin a[i]:=random(3600)+300; write(i,'. ',a[i]); end; for j:=1 to n-1 do begin for i:=1 to n-1 do if a[i]>a[i+1] then begin m:=a[i]; a[i]:=a[i+1]; a[i+1]:=m; end; end; writeln; for i:=1 to 10 do writeln(i,') ',a[i]); end.
То-что курсивом это организация ввода в массив цен. Если у вас другой то измените. 3600 это max цена, а 300 min можно и тут поменять . Как угодно)
Если не ошибаюсь, то X и Z являются типа byte. Требовать от переменных этого типа извлечение корня неправильно. Так как это по определению целые положительные числа, размером до 256. От переменной, из которой извлекают корень, требуется тип значения - действительное число. Так что лучше сразу объявить эти две переменные типа double (похоже так в Паскале).
В первом же случае лучше извлечь корень с операции sqrt. Снова, если не ошибаюсь, операция возведения в степени в Паскале довольно трудоемка что ли. Она определяется через exp и ln. Так что лучше не заморачиваться, а воспользоваться оператором sqrt.
1) 1200 * 1200 dpi означает, что в квадрате размером 1 дюйм на 1 дюйм сканируется такое количество точек 2) в 1 дюйме = 2,54 см, значит в 10 см содержится 3,94 дюйма (10/2,54 = 3,94) 3) 3,94* 1200 = 4728 пикселей по ширине и по высоте экрана 4) 4728 * 4728 = 22353984 точек в цветном изображении 10 на 10 см 5) 22353984 * 24 = 536495616 бит - информационный объем изображения Переведем в большие единицы измерения: 536495616 бит / 8 = 67061952 байт / 1024 = 65490,2 Кбайт / 1024 = 64 Мбайта ответ: полученный файл будет 64 Мбайта.
const n=50;
var
a:array[1..n] of integer;
m,i,j:integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(3600)+300;
write(i,'. ',a[i]);
end;
for j:=1 to n-1 do begin
for i:=1 to n-1 do
if a[i]>a[i+1] then begin
m:=a[i];
a[i]:=a[i+1];
a[i+1]:=m;
end;
end;
writeln;
for i:=1 to 10 do writeln(i,') ',a[i]);
end.
То-что курсивом это организация ввода в массив цен. Если у вас другой то измените. 3600 это max цена, а 300 min можно и тут поменять . Как угодно)