var temp:array[1..31] of integer;
k,i:integer;
begin
for i:=1 to 31 do readln(temp[i]);
for i:=1 to 31 do
if a[i]<0 then inc(k);
writeln(k);
end.
var
x,S:Extended;
i:longint;
begin
For i:=1 to 5 do begin Read(x); S:=S+x; end;
Write(S/5);
end.
1) 128 = 2 i <span>, i = 7 </span>
2) V = K * i = 64 x 64 x 7 бит = 28672 Б = 28 КБ
Vara,b,c,summa:integer;beginWrite('Сколько чисел ');read(a);for b:=0 to a dobeginwriteln('Введите число ');Read(c);summa:=summa+c;end;writeln('Сумма = ',summa);end.
procedure Minmax(var a, b: integer);
var min, max: integer;
begin
if a < b then min := a else min := b;
if a > b then max := a else max := b;
a := min;
b := max;
end;