Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
если под ячейкой поодразумевается байт (восемь бит) то:
(для беззнаковых (натуральных с нулём) )
или
- (для знаковых (целых) )
20-25=-5
var
a: array[1..31] of real;
i,k: integer;
min: real;
begin
min: =50;
for i: =1 to 31 do
readln(a[i]);
if a[i]< min then min: =a[i];
end;
k: =0;
if a[i]=min then k: =k+1;
writeln(k);
end.
1 см = 0,01 м
поэтому длину в см делим на 100 и получаем длину в м. и записываете целое число без остатка.
Популярные вопросы