Данные это закодированная и представленная на носителе информация в виде текста изображения, видеозаписи, аудиозаписи.
Виды информации по форме представления на носителе: текстовая, графическая, числовая, видеоинформация и звуковая.
Заводишь переменную, куда будешь забивать сумму, затем в цикле N раз считываешь число, умножаешь его на себя и прибавляешь к сумме (не забудь обнулить переменную для суммы в начале)
1)
CF(16) = 1100 1111(2); 321(8) = 11 010 001(2)
x = 1101 0000(2)
2)
B5(16) = 1011 0101(2); 267(8) = 10 110 111(2)
x = 1011 0110(2)
512*1024= 524288 байт
524288*8= 4194304 бит
Var a: array[1..30] of real;
pr, summ: real;
i, k: integer;
begin
k:=0;
pr:=1;
summ:=0;
for i:=1 to 30 do begin
readln(a[i]);
If i mod 2 <> 0 then
summ:=summ + a[i];
If a[i] = 0 then k:=k+1;
pr:=pr*a[i];
end;
writeln('Произведение элементов = ', pr);
writeln('Сумма элементов, стоящих на нечётных местах = ', summ);
writeln('Количество нулей в массиве: ', k);
end.