Если microsoft office 2003 года, то ppt, а если 2007, то pptх
Const n=100;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
writeln('Четные числа:');
for i:=1 to n do
if a[i] mod 2 = 0 then write(a[i]:4);
writeln;
end.
Пример (для n=10):
80 90 8 37 95 34 42 33 51 33
Четные числа:
80 90 8 34 42
1) Начало;
2) Инициализация необходимых переменных , массива[1..5,1..5] и переменной для хранения MAX элемента;
3) Подключение библиотеки randomize;
4) Запуск Первого цикла со счетчиком от 1 до 5;
4.1) запуск Второго (Вложенного) цикла со счетчиком от 1 до 5;
4.1.1) Заполнение первой строки массива рандомными значениями;
4.1.2) Заполнение первой строки String grid -a;
4.1.2) Сравниваем текущий элемент массива с MAX элементом;
4.1.2.1) Если текущий элемент массива больше текущего МАХ элемента (который по умолчанию равен 0) то
Перезаписывеам MAX элемент на элемент массива;
-------------------------------------------------------------------------------
Ждем окончания циклов в результате работы которых String grid будет заполнен А в переменной MAX элемента будет содержаться максимальный элемент массива.
5) Выводим MAX элемент массива в Edit;
---------------------------------------------------------------
Как то так. Если не понятно что то можно в лс или коменты.
Как системного блока:
Блок питания-материнская плата-ОЗУ-процессор.
Наиболее важные (де-факто - основные устройства), без которых запуск невозможен.
Если брать образно всю инфраструктуру ПК, с которой взаимодействует пользователь, то системный блок-монитор-устройства HID.
Это будет ответ d)xcl, т.к. это формат электронной таблицы
