В связи с тем, что байт не обязательно 8 бит, задание не полное. Хотя если предположить, что все-таки 8, то получается 14400 бит, 14.0625 килобит, 1800 байт, 1.76 кбайт.
Помоему так...
const n=10;
var a:array[1..n] of integer; i,k:integer;
begin
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10);
write(' ',a[i]);
end;
writeln;
for i:=1 to n do begin
if ((i mod 2) = 0) then
a[i]:=a[i]*2
else
a[i]:=a[i]*3;
end;
writeln('Конечный массив: ');
for i:=1 to n do
write(' ',a[i]);
<span>end.</span>
Переменные A и B
Всё остальное - это просто сообщения, так что за переменные их не считаем
Даааааааааааааааааааааааааааааа
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var s:=ReadlnString('Введите текст').ToWords;
Writeln('Кол-во равно ',s.Where(x->x[1]='а').Count)
end.
<u><em>Тестовое решение:</em></u>
Введите текст Большой арбуз оказался зеленым, а маленький - красным
Кол-во равно 2