Одномерные массивы. через паскаль abc. найти сумму элементов массива с четными номерами, содержащего 12 элементов. элементы вводятся случайным образом.
Var sum,i: integer; a: array[1..12] of integer; begin writeln('исходный массив:'); sum:=0; for i:=1 to 12 do begin a[i]:=random(20); write(a[i],' '); if i mod 2=0 then sum:=sum+a[i]; end; writeln; writeln('сумма:',sum); end.
Если удалить из костюма элемент брюки, то он уже не будет костюмом. Если удалить из автомобиля элемент колёса, то без колёс автомобиль не поедит. Если удалить из компьютера элемент процессор, то он не будет больше компьютером. Если удалить из городской телефонной сети элемент электричество в городе, то сеть не будет ловить. Если удалить из школы элемент учитель, то это не будет школой. Если удалить из государства Президента, то кто будет править государством? Сущ.:Костюм, автомобиль, компьютер,школа. Несущ.:Городск. телеф. связь, государство.
1. Частота 48 КГц требует для записи 48 000 отсчетов в секунду на каждый канал. 2. Стереофоническая (двухканальная) запись потребует 48 000 х 2= 96 000 отсчетов в секунду. 3. Каждый отсчет содержит 16-битный уровень сигнала (амплитуду); 16 бит это 16/8=2 байта. 4. Итого, для записи одной секунды сигнала потребуется 2х96 000=192 000 байт 5. Размер файла 2 Мбайта - это 2х1024х1024=2 097 152 байт. 6. Определяем максимальное время звучания при указанном размере файла: 2 097 152 / 192 000 ≈ 10.92 (секунды)
a: array[1..12] of integer;
begin
writeln('исходный массив:');
sum:=0;
for i:=1 to 12 do begin
a[i]:=random(20);
write(a[i],' ');
if i mod 2=0 then sum:=sum+a[i];
end;
writeln;
writeln('сумма:',sum);
end.