1
var i, minus, plus, zero: integer;
t: array [1..15] of integer;
begin
minus := 0;
plus := 0;
zero := 0;
for i := 1 to 15 do
begin
readln(t[i]);
if t[i] > 0 then plus := plus + 1;
else if t[i] < 0 then minus := minus + 1;
else zero := zero + 1;
end;
end.
2
var stroke: string;
begin
readln(stroke);
if length(stroke) mod 2 = 0 then writeln('Четно');
else writeln('Нечетно');
end.
3 (Сейчас далеко от компа, когда буду рядом отредачу)
4
var max, min, i: integer;
A: array[1..20] of integer;
begin
min := a[1];
max := a[1];
for i := 2 to 15 do
begin
if a[i] > max then max := a[i];
if a[i] < min then min := a[i];
end;
end.
Ответ:
Желтым я выделила правильные ответы.Буду благодарна,если вы отметите мой ответ,как лучший
const
n = 10; //количество элементов массива
var
a: array [1..n] of real;
i: integer;
begin
for i:= 1 to n do
begin
writeln('Введите ', i, ' элемент массива');
readln(a[i]); //вводим очередной элемент массива
end;
write('Исходный массив: ');
for i:= 1 to n do
write(a[i], ' '); //Выводим исходный массив
writeln; //Перевод на новую строку
write('Полученный массив: ');
for i:= 1 to n do
begin
a[i]:= a[i] * a[n]; //элемент массива умножаем на последний элемент
write(a[i], ' '); //выводим полученный элемент массива
end;
end.
Надо посчитать количество символов в сообщении: 3 * 25 * 60 = 4500;
Сообщение занимает 1125 байт, посчитаем, сколько байт занимает каждый символ: 1125 / 4500 = 0.25;
Т.к. символ занимает 0.25 байт, одним байтом можно закодировать 4 символа. Байт состоит из 8 бит.
8 / 4 = 2 (количество битов чтобы закодировать каждый символ)
Двумя битами можно закодировать 4 символа, значит в алфавите может быть до четырех символов
