Массив B

[murzic28]

Напишите пожалуйста программу решения задачи: найти номер наибольшего положительного элемента массива B(10). Массив В вывести на экран. Составить блок-схему.

[Neurogenus]

program abc;
uses Crt;//подключаем модуль
var mas:array[1..10] of integer;//массив элементов
    max:integer;//максимальный элемент
    i:integer;//счетчик
begin
{вводим массив}
Writeln('Введите пожалуйста массив');
for i:=1 to 10 do readln(mas[i]);
{ищем максимальный элемент}
max:=0;
for i:=1 to 10 do begin
 if (mas[i]>max) then max:=mas[i];end;
{выводим номер-а максимального-ых элемента-ов}
for i:=1 to 10 do begin
 if mas[i]=max then writeln('Номер макс.пол.эл = ',i);end;
readln;end.

[ROMA2PVT]

Ну и вот блок-схема.Только впереди сделай блок описания переменных.И в конце readln блок удали.

[murzic28]

Че-т не получается, выдает сначала 146 ошибку(неправильное обращение к файлу). Потом 3 (неизвестный идентификатор). Что я не так делаю???

[Grag]

Сообщение от Neurogenus

program abc;
uses Crt;//подключаем модуль
var mas:array[1..10] of integer;//массив элементов
    max:integer;//максимальный элемент
    i:integer;//счетчик
begin
{вводим массив}
Writeln('Введите пожалуйста массив');
for i:=1 to 10 do readln(mas[i]);
{ищем максимальный элемент}
max:=0;
for i:=1 to 10 do begin
 if (mas[i]>max) then max:=mas[i];end;
{выводим номер-а максимального-ых элемента-ов}
for i:=1 to 10 do begin
 if mas[i]=max then writeln('Номер макс.пол.эл = ',i);end;
readln;end.

Здесь, по хорошему, нужно все сделать одним циклом, а индекс максимального элемента сохранить в отдельной переменной, а потом уже вывести его...

И как можно вот это представить в одномерном массиве???

{выводим номер-а максимального-ых элемента-ов}