Program E04;
uses crt;
var
n,i,k,f: integer;
X: array[1..50] of real;
Max,S: real;
begin
clrscr;
writeln('Введите размерность: ');
readln(n);
writeln('Введите массив: ');
for i:=1 to n do
begin
write('X[',i:2,'] ==> ');
readln(X[i])
end;
writeln('Исходный массив: ');
for i:=1 to n do
write(X[i],' ');
writeln;
Max:=abs(X[1]);
for i:=1 to n do
if Max <= abs(X[i]) then
Max:=abs(X[i]);
writeln('Максимальный элемент по модулю: ',Max);
i:=1;
while (i <= n) and (X[i] <= 0) do
i:=i+1;
if i > n then
writeln ('folse')
else
begin
k:=i;
i:=i+1;
while (i <= n) and (X[i] <= 0) do
i:=i+1;
if i > n then
writeln ('folse')
else
begin
f:=i;
for i := k + 1 to f - 1 do
S:=S+X[i];
writeln('Сумма: ',S:5:2);
end;
end;
end.
<span> <span>var
n,k:integer;
a:real;
i:byte;
begin
for i:=1 to 7 do
begin
Write('Температура на ',i,'день ');
read(n);
k:=k+n;
end;
a:=k/7;
writeln('Средняя температура=',a);
readln;
readln;
end.</span></span>
N=64
N=2^i
i=6 бит
60 Кбайт = 61 440 байт = 491 520 бит
491 520/6=81 920 символов
<span><span>
Type
Song = Record
Naz : String [ 40 ];
Stil : String [10];
Dl : Real;
End;
</span></span><span><span>
Var
Massiv : ARRAY [ 1 . .10 ] OF Song;
</span></span> i, N : Short;
<span><span>- Тогда -
FOR i := 1 TO N DO WITH Massiv [ i ] DO
</span>
Begin
Write ( ‘ Введите название песни - ‘ );
<span>Readln ( Naz );
</span></span>Write ( ‘ Введите стиль песни - ‘ );
Readln ( Stil );<span>
Write ( ‘ Укажите длительность песни - ‘ );
Readln ( Dl );
End;
</span>