<span><span>Var
x: Array [1..50] of Real;
i,n: Byte;
s: Real;
BEGIN
Repeat
Write('Введите кол-во элементов не более 50: ');
Readln(n);
until n in [1..50];
s:=0;
For i:=1 to n do
begin
x[i]:=10*Random;
If Odd(i) Then
s:=s+x[i];
Write(x[i]:7:2);
end;
Writeln;
Writeln('Сумма элементов с нечетными индексами = ',s:0:2);
END.</span></span>
Все 6 страниц занимают 8775 байт памяти
1 страница занимает 8775/6 = 1462.5 байт
На 1 строке 1462.5 / 30 = 48.75 байт
По формуле log2(64) = 6 бит уходит на кодировку 1 символа
48.75/6 = 8.125 байт
8.125*8 = 65 бит.
Паскаль.
Немного не понятно: от 1 до 10 это относится только к нечетным числам или ко всем? Ну напишу программу которая просто все числа вычисляет, если сама не сможешь поставить условие ограничения, то сообщи точное условие задачи и напиши мне в личку
program jjj;
var a: array [1..10] of integer; i,summa,proizv:integer;
begin
for i:=1 to 10 do begin
Writeln('напишите элемент массива номер ',i); read(a[i]);
end;
For i:=1 to 10 do begin
if a[i] mod 2=0 then summa:=summa+a[i] else
proizv:=proizv*a[i];
end;
Writeln(summa,' ',proizv); readln;
end.
Можно быстро подключить наушники с микрофоном, и чтобы было 2 выхода аудио, один через колонки например, вторые через наушники, и есть еще порты USB, удобны если подключать переносной hdd, или подключать телефон, фотоаппарат и т.п.
<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>