Напишите программу, которая в последовательности натуральных чисел находит наименьшее число, оканчивающиеся на 1. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). Количество чисел не превышает 1000. Введённые числа не превышают 30000. Гарантируется, что в последовательности есть хотя бы одно число, оканчивающиеся на 1.

Программа должна вывести наименьшее число, оканчивающиеся на 1. Packal.abc

Var n,m:integer;b:boolean;
function fminmax(k:integer;d:boolean):integer;
var a:array[1..30] of integer;j,max,min:integer;
begin
for j:= 1 to 30 do begin a[j]:= random(100)-50; write(a[j]:4);end;
max:= -100;min:=100;
if b = true then 
for j:= 1 to k do begin
if max < a[j] then max := a[j];fminmax:=max;end
else
for j:= n to 30 do begin
if min > a[j] then min := a[j];
fminmax:=min;end;
end;
begin
write ('Введите число < 25');Read(n);
write ('Определять max(true -да, false- нет)');Read(b);
m:= fminmax(n,b);
writeln;
if b = true then write('max = ',m)
else
write('min = ',m);end.

Есть растровая и векторная графика

Растровая - все изображение составлено из пикселей, точек, которые имеют свой цвет и расположение. Чем больше этих пикселей - тем лучше качество картинки. Недостатки: при большом масштабировании теряется качество (наверняка замечали квадраты при увеличении картинки) и еще один недостаток - объем файла, нужно задать цвет для каждого пикселя

Векторная графика - изображение состоит из примитивов (точка, линии, прямоугольники, окружности и прочее). Такое изображение легко увеличивается и уменьшается без потери качества, объем информации в файле меньше, (в файле хранятся не пиксели а параметры фигур: размер, цвет или радиус круга) но для сложных рисунков понадобится ОЧЕНЬ много точек и прямоугольников :D