Var
a:array of integer;
i,b,c:integer;
BEGIN
write('Введите размер массива - ');
readln(b);
setlength(a,b);
writeln('Введите элементы массива - ');
for i:=0 to b-1 do begin
readln(a[i]);
if a[i] mod 2 = 0 then c:=c+a[i];
end;
writeln('Сумма четных элементов массива - ',c);
END.
1) 10 х 15 см, - это 100 х 150 мм.
2) найдём общее количество точек в изображении: (100*50)*(150*50)=5000*7500=37500000.
3) для 16 цветов достаточно 4 бит, т.к. 16=2^4, поэтому: 37500000*4=150000000(бит) /8=18750000(Байт) /1024=18370,5469(Килобайт) /1024=17,8813835(Мегабайт).
Решение показано в прилагаемом файле.
В столбец A и в строку 2 нужно занести длины сторон от 1 до 10.
Значения периметра в остальных ячейках (начиная с B3) вычисляются по формуле вида: =2*($A3+B$2)
Формула записывается один раз, после чего её нужно скопировать (протяжкой) на все остальные ячейки диапазона B3:K12
Для вычисления площади все действия аналогичны. Формула: =$A3*B$2
var a:array[1..8] of integer;
i: integer;
begin
for i:=1 to 8 do
begin
a[i]:=random(100);
writeln (i,' элемент: ',a[i])
end
end.