Паскаль:
var a:integer;begin ReadLn(a); if not (a mod 2 = 0) then WriteLn(a*2); if a > 7 then Writeln(Sqrt(a));end.
Ответ:
Массив представляет собой совокупность данных одного типа с общим для всех элементов именем.
Элементы массива пронумерованы, и обращаться к каждому из них можно по номеру. Номера элементов массива иначе называются индексами, а сами элементы массива - индексированными переменными.
Аналоговый и цифровой звук.
1) Раз речь про лазер, то подразумеваются CD, DVD, Blueray диски. Хотя я бы не назвала их способными хранить реально большие обьемы
2)оптический диск? Cdroom или дисковод
3) Жесткий диск/Винчестер
4) Внешний жесткий диск
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Arr(3.5,18.3,28.5,1.5,0.18); a.Println;
Writeln('S=',a.Sum)
end.
<u>Результат</u>
3.5 18.3 28.5 1.5 0.18
S=51.98