begin
var a := ReadArrInteger(15);
for var i := 14 downto 0 do
Println(a[i]);
end.
*Растровый графический редактор* — специализированная программа, предназначенная для создания и обработки растровых изображений
. Подобные программные продукты нашли широкое применение в работе художников-иллюстраторов, при подготовке изображений к печати типографским способом или на фотобумаге, публикации в интернете.
Растровые графические редакторы позволяют пользователю рисовать иредактировать изображения
на экране компьютера, а также сохранять их в различных растровых форматах, таких как, например, JPEG
и TIFF
, позволяющих хранить растровую графику с незначительным снижением качества за счёт использования алгоритмов сжатия с потерями, PNG
и GIF
, поддерживающими хорошее сжатие без потерь, и BMP
, также поддерживающем сжатие (RLE
), но в общем случае представляющем собой несжатое «попиксельное
» описание изображения.
//Pascal ABC.NET 3.1 сборка 1256
Const
n=10;
Var
ar:array[1..n] of integer;
i,k,min:integer;
begin
min:=integer.MaxValue;
writeln('Array:');
for i:=1 to n do
begin
readln(ar[i]);
if ar[i]<min then min:=ar[i];
end;
for i:=1 to n do
if ar[i]-5=min then inc(k);
writeln(k);
end.
Значение a подставляешь сюда <span>b:=5+7*a
А потом полученное b сюда -> </span><span>b:=b/2*a
</span>b = 3