Персональный компьютер, ПК (англ. personal computer, PC), ПЭВМ (персональная электронно-вычислительная машина) — настольная микро-ЭВМ, имеющая эксплуатационные характеристики бытового прибора и универсальные функциональные возможности[1].
Согласно ГОСТ 27201-87 ПК применяются как средства массовой автоматизации (в основном для создания на их основе автоматизированных рабочих мест) в социальной и производственных сферах деятельности в различных областях народного хозяйства и предназначенные для пользователей, не обладающих специальными знаниями в области вычислительной техники и программирования.
Изначально компьютер был создан как вычислительная машина, в качестве ПК он так же используется в других целях — как средство доступа в информационные сети и как платформа для компьютерных игр.
var i, n, max, p: integer; a: array[1..nm] of integer;
begin Write('Введите количество элементов в массиве: '); Readln(n); max := -32768; Write('Введите элементы массива через пробел '); for i := 1 to n do begin Read(a[i]); if max <= a[i] then begin max := a[i]; p := i end end; Writeln('Последний максимальный элемент ', max, ' имеет номер ', p) end.
Тестовое решение:
Введите количество элементов в массиве: 10 Введите элементы массива через пробел 4 -5 6 -9 1 0 6 3 -1 5 Последний максимальный элемент 6 имеет номер 7
Согласно ГОСТ 27201-87 ПК применяются как средства массовой автоматизации (в основном для создания на их основе автоматизированных рабочих мест) в социальной и производственных сферах деятельности в различных областях народного хозяйства и предназначенные для пользователей, не обладающих специальными знаниями в области вычислительной техники и программирования.
Изначально компьютер был создан как вычислительная машина, в качестве ПК он так же используется в других целях — как средство доступа в информационные сети и как платформа для компьютерных игр.
nm = 50;{максимальная длина массива}
var
i, n, max, p: integer;
a: array[1..nm] of integer;
begin
Write('Введите количество элементов в массиве: ');
Readln(n);
max := -32768;
Write('Введите элементы массива через пробел ');
for i := 1 to n do
begin
Read(a[i]);
if max <= a[i] then
begin
max := a[i]; p := i
end
end;
Writeln('Последний максимальный элемент ', max, ' имеет номер ', p)
end.
Тестовое решение:
Введите количество элементов в массиве: 10
Введите элементы массива через пробел 4 -5 6 -9 1 0 6 3 -1 5
Последний максимальный элемент 6 имеет номер 7