1) var a: array[0..100] of integer; i, s, n: integer; begin writeln('Введите количество элементов в массиве: '); readln(n); for i := 1 to n do begin a[i] := random(10); write(a[i], ' '); s := s * a[i]; end; writeln; writeln(s); end.
2) var a: array[0..100] of integer; i, s, n: integer; begin writeln('Введите количество элементов в массиве: '); readln(n); for i := 1 to n do begin a[i] := random(10); write(a[i], ' '); end; for i := 1 to n do begin // if (i mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди четных номеров элементов. // if (a[i] mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих четных элементов. end; writeln; writeln(s); end.
3)var a: array[0..100] of integer; i, s, n, max: integer; begin writeln('Введите количество элементов в массиве: '); readln(n); for i := 1 to n do begin a[i] := random(10); write(a[i], ' '); end; s:=0; for i := 1 to n do begin if (a[i]>s) then s:=a[i]; end; writeln; writeln(s); end.
4)var a: array[0..100] of integer; i, s, n, max: integer; begin writeln('Введите количество элементов в массиве: '); readln(n); for i := 1 to n do begin a[i] := random(10); write(a[i], ' '); end; s:=0; for i := 1 to n do begin if (a[i]>s) and (a[i] mod 3=0) then s:=a[i]; end; writeln; writeln(s); end.
Векторное представление заключается в описании элементов изображения математическими кривыми с указанием их цветов и заполняемости (например, круг и окружность – разные фигуры). Красный эллипс на белом фоне будет описан всего двумя математическими формулами – прямоугольника и эллипса соответствующих цветов, размеров и местоположения. Очевидно, такое описание займет значительно меньше места, чем в первом случае. Еще одно преимущество – качественное масштабирование в любую сторону. Увеличение или уменьшение объектов производится увеличением или уменьшением соответствующих коэффициентов в математических формулах. К сожалению векторный формат становится невыгодным при передаче изображений с большим количеством оттенков или мелких деталей (например, фотографий). Ведь каждый мельчайший блик в этом случае будет представляться не совокупностью одноцветных точек, а сложнейшей математической формулой или совокупностью графических примитивов, каждый из которых, является формулой. Это приводит к утяжелению файла. Кроме того, перевод изображения из растрового в векторный формат (например, программой Adobe Strime Line или Corel OCR-TRACE) приводит к наследованию последним невозможности корректного масштабирования в большую сторону. От увеличения линейных размеров количество деталей или оттенков на единицу площади больше не становится. Это ограничение накладывается разрешением вводных устройств (сканеров, цифровых фотокамер и др.).
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do begin
a[i] := random(10);
write(a[i], ' ');
s := s * a[i];
end;
writeln;
writeln(s);
end.
2) var a: array[0..100] of integer; i, s, n: integer;
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do begin
a[i] := random(10);
write(a[i], ' ');
end;
for i := 1 to n do begin
// if (i mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди четных номеров элементов.
// if (a[i] mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих четных элементов.
end;
writeln;
writeln(s);
end.
3)var a: array[0..100] of integer; i, s, n, max: integer;
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do begin
a[i] := random(10);
write(a[i], ' ');
end;
s:=0;
for i := 1 to n do begin
if (a[i]>s) then s:=a[i];
end;
writeln;
writeln(s);
end.
4)var a: array[0..100] of integer; i, s, n, max: integer;
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do begin
a[i] := random(10);
write(a[i], ' ');
end;
s:=0;
for i := 1 to n do begin
if (a[i]>s) and (a[i] mod 3=0) then s:=a[i];
end;
writeln;
writeln(s);
end.