Var
a: array[1..100] of integer;
i,n,c,h: integer;
begin
writeln('Введите кол-во элементов последовательности:'); readln(n);
writeln('Введите последовательность:');
for i:=1 to n do
begin
read(a[i]);
if a[i]<0 then
begin
c:=c+a[i];
h:=h+1;
end;
end;
writeln(c/h);
<span> end.</span>
Var
st:string;
i:byte;
begin
readln(st);//вводим строку
write('Числа имеющиеся в тексте: ');
for i:=1 to length(st) do
if (st[i] in ['1'..'9']) then write(st[i]); //если текущий символ принадлежит ко множеству чисел -то выводим его
end.
Значит, разница между CD и DVD в том, что последний изготовлен так, что на нем можно использовать лазер меньшей длины волны. Насколько я понял.
Первый записываемый слой двухслойного диска является полупрозрачным, обеспечивая при этом достаточную отражающую способность для чтения/записи первого слоя данных. В то же время он пропускает достаточное количество энергии лазера для чтения/записи второго слоя после изменения фокусировки лазера.Blu Ray – новый формат, способный хранить большие объемы информации и воспроизводить высококачественные изображения и видео. Благодаря использованию передовой технологии, Blue Ray состоит из более плотных слоев и читается более тонким лазером, чем обычные DVD.
Const N=10;
var a:array [1..N] of integer;
i,sum:integer;
sr:real;
begin
sr:=0; sum:=0;
for i:=1 to N do
begin
a[i]:=random(10)+1;
sum:=sum+a[i];
end;
for i:=1 to N do
write(a[i]:3);
writeln;
sr:=sum/10;
writeln('Среднее значение элементов массива:',sr);
end.
Конструкция SmallString = string[l]; объяляет тип SmallString как строку из l символов. Для такого объявления l должно быть задано выше константой.
