Program test; const N = 10; var i:integer; m:array [1..n] of integer; begin for i:=1 to n do readln(m[i]);// мы заполняем массив числами for i:=1 to n do begin if m[i]>0 then m[i]:=888;i f m[i]<0 then m[i]:=m[i]*(-1); writeln(m[i]); end; end.
Понятие "информация". Слово "информация" происходит от латинского слова informatio, что в переводе означает сведение, разъяснение, ознакомление. Понятие "информация" является базовым в курсе информатики, невозможно дать его определение через другие, более "простые" понятия. В геометрии, например, невозможно выразить содержание базовых понятий "точка", "луч", "плоскость" через более простые понятия. Содержание основных, базовых понятий в любой науке должно быть пояснено на примерах или выявлено путем их сопоставления с содержанием других понятий.
Оптические (лазерные) диски в настоящее время являются наиболее популярными носителями информации. В них используется оптический принцип записи и считывания информации с лазерного луча.Информация на лазерном диске записывается на одну спиралевидную дорожку, начинающуюся от центра диска и содержащую чередующиеся участки впадин и выступов с различной отражающей
Сходства:-одинаковые размеры, тот же радужный вид, принцип чтения и записи тоже аналогичный. а различие в CD используется инфракрасный луч, а в DVD применяется красный лазер.
const N = 10;
var i:integer;
m:array [1..n] of integer;
begin
for i:=1 to n do
readln(m[i]);// мы заполняем массив числами
for i:=1 to n do
begin
if m[i]>0 then m[i]:=888;i
f m[i]<0 then m[i]:=m[i]*(-1);
writeln(m[i]);
end;
end.