<span>файл в приложении==============</span>
C:\Мои документы\6 класс\Блинов\Реверат.doc
C:\Фильмы\Сумерки.avi
C:\Мои документы\6 класс\Мальцев\Рисунки\Эскиз.bmp
Это определение слова система
Var n,i,max:integer;
a:array [1..1000] of integer;//объявляем массив
begin
writeln('Введите количество чисел');
readln(n);
for i:=1 to n do begin
readln(a[i]);
if a[i]>max then
max:=i;
end;
writeln('Индекс максимального элемента массива =', max);
end.
Меню: Правка
Недоступны: вернуть, повторить
Вставить: Ctrl+V
Следующие меню: Вид
Доп. информация: закрыть окно (сохранить после закрытия)