NortonCommander - Файловый менеджер WinRar - Программа архивирования keyboard.drv, sound.drv, mouse.drv - Драйвера устройств клавиатуры, аудио и мышки «1С Предприятие» - программные продукты для автоматизации бухгалтерского и управленческого учёта
MSWord, Блокнот - текстовые редакторы MSExcel - табличный редактор MSAccess - реляционная СУБД 3DStudio - редактор трёхмерной графики Си, Basic, Pascal, C+, Фортран, FoxPro - Языки программирования Linux, Windows7 - Операционные системы AdobePhotoshop, Paint - графический редактор MacromediaFlash - медиа-плеер Компас 3D - САПР(Система автоматизированного проектирования) QIP - интернет-пейджер AVP Касперского, DrWeb - антивирусная программа OutlookExpress - почтовый клиент и органайзер HTML - язык гипертекстовой разметки NeroPremium - программа записи дисков «Консультант Плюс» - Справочная система
P.S. Вроде всё описал, если нужны объяснения пишите
WinRar - Программа архивирования
keyboard.drv, sound.drv, mouse.drv - Драйвера устройств клавиатуры, аудио и мышки
«1С Предприятие» - программные продукты для автоматизации бухгалтерского и управленческого учёта
MSWord, Блокнот - текстовые редакторы
MSExcel - табличный редактор
MSAccess - реляционная СУБД
3DStudio - редактор трёхмерной графики
Си, Basic, Pascal, C+, Фортран, FoxPro - Языки программирования
Linux, Windows7 - Операционные системы
AdobePhotoshop, Paint - графический редактор
MacromediaFlash - медиа-плеер
Компас 3D - САПР(Система автоматизированного проектирования)
QIP - интернет-пейджер
AVP Касперского, DrWeb - антивирусная программа
OutlookExpress - почтовый клиент и органайзер
HTML - язык гипертекстовой разметки
NeroPremium - программа записи дисков
«Консультант Плюс» - Справочная система
P.S. Вроде всё описал, если нужны объяснения пишите
program massiv;
const Sz = 100; // Размер массива
var
a: array [1..Sz] of integer;
i: integer;
max: integer;
counter: integer;
begin
max:=0;
counter:=0;
for i:=1 to Sz do begin
a[i] := random(26) + 10;
if a[i] > max then begin
max := a[i];
end;
end;
writeln('Элементы массива: ');
for i:=1 to Sz do begin
write(a[i],' ');
if a[i] = max then begin
counter := counter + 1;
end;
end;
writeln('');
writeln('Максимальный элемент: ', max);
writeln('Кол-во таких элементов ', counter);
end.
Объяснение: