M[0]: = 8; M[1]: = 7; M[2]: =13; M[1]: = M[0] * M[2]; M[0]: = M[1] - M[2]; M[2]: = M[0] + M[1]; Введи значения, которые получат переменные массива после выполнения этого фрагмента программы.

M[0]: = 8;

M[1]: = 7;

M[2]: =13;

M[1]: = M[0] * M[2];

M[0]: = M[1] - M[2];

M[2]: = M[0] + M[1];

M[1]: = 8 * 13;

M[1]: = 104;

M[0]: = 104 - 13;

M[0]: = 91;

M[2]: = 91 + 104 ;

M[2]: = 95;

1.

var
i,n,s:integer;
a:array [1..100] of integer;  
begin
write('Введите количество элементов массива: ');
readln(n);
s:=0;
for i:=1 to n do
begin
  readln(a[i]);
  s:=s+a[i];
end;
writeln('Сумма элементов массива = ',s);
end.

 

2.

var
i,n,k:integer;
a:array [1..10] of real;  
begin
k:=0;
for i:=1 to 10 do
begin
  readln(a[i]);
  if a[i]>0 then k:=k+1;
end;
writeln('Количество положительных элементов массива = ',k);
end.

 

3.

var
i,n:integer;
a:array [1..100] of integer;  
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do
  readln(a[i]);
if a[1]>0 then writeln('Раньше встречается положительное число')
          else writeln('Раньше встречается отрицательное число')
end.

 

4.

var
i,n:integer;
a:array [1..100] of integer;  
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do
  readln(a[i]);
for i:=1 to n do if a[i]<0 then write(i,' ');
end.

1 вариант, в случае, если для кодирования одного символа используют кодировочные таблицы, где 1 символ кодируется 1 байтом.

Тогда счистаем количество символов: 19 (пробелы тоже нужно считать)

19 × 1 байт = 19 байт - нужно, если 1 символ кодируют одним байтом

 

2 вариант, в случае, когда для кодировани] 1 символа используют кодировочные таблицы, где 1 символ кодируется 2 байтами (Unicode).

Количество символов - 19

19 × 2 байта = 38 байт требуется для кодирования данного текста в 2-байтовой кодировке.