Var n,i,k,s,min:longint; a:array[1..100] of longint; begin Write('Write size array: '); readln(n); for i:=1 to n do begin a[i]:=Random(50); write(a[i]:4); end; min:=a[1]; k:=1; s:=0; for i:=1 to n do if a[i]<min then begin min:=a[i]; k:=i; end; for i:=1 to k do s:=s+a[i]; writeln(s); readln end.
Вопрос поставлен некорректно, поэтому и ответ такой. Если говорить об информации содержащейся в письме (о его смысловой нагрузке), то её объём не зависит от количества знаков в алфавите. А если речь идёт об объёме информации, который потребовался для записи сообщения, то тогда другое дело. У Мульти для записи одного символа используется 5 бит (2^5=32), а у Пульти 6 бит (2^6=64). Значит сообщение Мульти было записано с бит, а сообщение Пульти с бит. Значит сообщение Пульти больше сообщения Мульти на 20 бит.
"Пока" - while если правильно понял "Если" - if цикл с параметром - for
while - действие выполняется до того, пока требуемое условие заданное в ( ), не будет ложным Например: while <условие> do <операция>
for - действие выполняется до того, пока не выполниться столько - то раз Например: for i:=1 to 10 do //...i:=1 to 10... это сколько раз будет выполняться цикл, в данном случае 10 раз <операция>
if - условие, на которое есть 2 ответа: ДА или НЕТ (это как тип данных boolean, булеан логический тип данных, который тоже имеет 2 значения: true или false) Например: if <условие> then <операция> else <операция>
n,i,k,s,min:longint;
a:array[1..100] of longint;
begin
Write('Write size array: '); readln(n);
for i:=1 to n do
begin
a[i]:=Random(50);
write(a[i]:4);
end;
min:=a[1];
k:=1;
s:=0;
for i:=1 to n do
if a[i]<min
then
begin
min:=a[i];
k:=i;
end;
for i:=1 to k do
s:=s+a[i];
writeln(s);
readln
end.