Объяснение:
Цифрова́я фотогра́фия — технология фотографии, использующая вместо светочувствительных материалов, основанных на галогениде серебра, преобразование света светочувствительной матрицей и получение цифрового файла, используемого для дальнейшей обработки и печати.
Поскольку обработка полученных файлов изображения производится на компьютере (или на другой цифровой технике), цифровая фотография часто относится к области информационных технологий.
Помимо собственно цифрового оборудования, в сферу цифровой фотографии оказываются традиционно включены
1)
var a: array [1..10] of integer;
i, max, min: integer;
begin
for i := 1 to 10 do
begin
write('Введите ', i,' элемент массива: ');
readln(a[i]);
end;
max := a[1];
min := a[1];
for i := 2 to 10 do
begin
if a[i] < min then min := a[i];
if a[i] > max then max := a[i];
end;
writeln();
writeln('Максимальный эл.: ', max);
writeln('Минимальный эл.: ', min);
end.
2)
var a: array [1..10] of integer;
i, negCounter: integer;
begin
for i := 1 to 10 do
begin
write('Введите ', i,' элемент массива: ');
readln(a[i]);
end;
negCounter := 0;
for i := 1 to 10 do
begin
if a[i] < 0 then inc(negCounter);
end;
writeln();
writeln('Кол-во отрицательных: ', negCounter);
end.
3)
var a: array [1..10] of integer;
i, sum: integer;
begin
for i := 1 to 10 do
begin
write('Введите ', i,' элемент массива: ');
readln(a[i]);
end;
sum := 0;
for i := 1 to 10 do
sum := sum + sqr(a[i]);
writeln();
writeln('Сумма квадратов элементов: ', sum);
end.
Одна ячейка оперативной памяти компьютера содержит 1 байт, значит 1536 байт, что составляет 1,5 Кб.