Var
Z: array [1..10] of integer;
i: byte;
MaxOddId, MaxEvenId: integer;
begin
randomize;
writeln(' * * * Исходный массив * * *');
for i := 1 to 10 do
begin
Z[i] := random(50)-20;
MaxOddId := Z[1];
MaxEvenId := Z[2];
write(Z[i], ' ');
end;
for i := 1 to 10 do
begin
if i mod 2 = 0 then if Z[i] > MaxEvenId then MaxEvenId := Z[i];
if i mod 2 <> 0 then if Z[i] > MaxOddId then MaxOddId := Z[i];
end;
writeln(#13+'Максимальный элемент на четных ячейках = ', MaxEvenId);
writeln('Максимальный элемент на нечетных ячейках = ', MaxOddId);
end.
Внутренняя память- встроенная в компьютер и непосредственно управл. процессором. Внешняя память - огромные объемы может хранить, хранит качественно и долго. Лучше так.
<span>В настоящее время широко используются операционные системы (ОС)ХР, Windows 7/Vista. Win8, которые представляет собой интегрированные, объектно-ориентированные операционные системы, основанные на 32-разрядной технологии со встроенной поддержкой работы в сети.
Излагаемый далее материал поясняет возможности и работу на примере названных выше наиболее распространенных ОС Windows. Основные приемы работы в этих ОС будут аналогичными. Следует заметить, что Windows 2000 и Windows ХР обеспечивают более надежную и безопасную (с точки зрения защиты информации) работу, но требуют больших ресурсов компьютера.
ОС Windows предоставляет следующие возможности:
- предоставляет пользователю удобный и понятный интерфейс;
- работает на IBM PC большинства современных конфигураций. При этом сохранена и даже улучшена совместимость с существующими DOS и Windows-приложениями; - содержит 32-разрядное ядро, обеспечивающее более быстрое и эффективное управление памятью и всеми процессами;
- имеет новую 32-разрядную файловую систему с открытой для дальнейшего развития архитектурой;
- имеет встроенные средства для работы со звуком, видео- и компакт-дисками;
- предоставляет такие инструменты, как Мастера (Wizards), которые автоматизируют процесс выполнения операций путем задания достаточно простых вопросов пользователю;
- включает встроенные средства диагностики, оптимизации и исправления ошибок, которые помогают устранять конфликты между устройствами и повышают эффективность функционирования всей системы.
- выполнение всех функций DOS (Windows 2000 и Windows ХР для обеспечения безопасности не поддерживают режим DOS);
- поддержку независимой мультизадачности для 32-разрядных приложений, т.е. обеспечивает одновременную работу нескольких приложений, распределяя кванты времени (временные интервалы) между активными приложениями и автоматически передавая управление другой задаче по окончанию выделенного времени;
- максимально упрощает установку и настройку периферийных устройств за счет поддержки стандарта Plug and Play;
- обеспечивает работу в режиме удаленного доступа и синхронизации файлов настольного и портативного компьютеров;
- поддерживает работу ПК в неоднородных сетях.</span><span>
</span>
Program Project1;
var m:array [0..19] of integer; i:integer;
begin
for i:=0 to 19 do begin
m[i]:=20-Random(30);
if m[i]<0 then m[i]:=m[i]*-1;
writeln(m[i]);
end;
readln;
end.
Var
x:real;
n:integer;
begin
Write('Введите x -> ');
Readln(x);
Write('Введите номер действия(1..4) - > ');
readln(n);
case n of
1: Writeln('y = ', x*x);
2: Writeln('y = ', cos(x));
3: Writeln('y = ', sin(x));
4: Writeln('y = ', abs(x));
end;
end.