процедура. вычислить порядковый номер максимального элемент массива b. (Pascal)

[Настя М]

Исправить ошибки и вычислить порядковый номер максимального элемент массива b. Если максимальных элементов несколько( т.е. существуют одинаковые элементы), то вывести порядковые номера всех этих элементов. Пожалуйста!

program lab7;
uses crt;
type
a1=array[1 .. 90] of real;
var
mas:a1;
i1,m1,n1: integer;
f1:text;

procedure qwe(a: a1; n:integer; m: real);
var
i,j: integer;
c,k: real;
b:array[1 .. 90] of real;
begin
c:=1.0;
for i:=1 to n do
begin
if frac(a[i])>=0.5 then k:=1-frac(a[i])
else k:=frac(a[i]);;
for j:=1 to n do
b[j]:=k;
end;
writeln(b[i]);
end;

Begin
clrscr;
assign(f1,'c:\lab7b.txt');
reset(f1);
i1:=1;
n1:=0;
while not eof(f1) do
begin
readln(f1,mas[i1]);
i1:=i1+1;
n1:=n1+1;
end;
close(f1);
qwe(mas,n1,m1);
writeln(m1);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[type_Oleg]

Что-то до боли знакомое.
У вас код точно от этого задания?

[Serge_Bliznykov]

if frac(a[i])>=0.5 then k:=1-frac(a[i])

точно. Это другой код! это программа поиска элемента, максимально близкого к целому числу (данный код есть на форуме).

Настя, зачем Вы привели сюда этот код?! Он к вашей задаче отношения не имеет!

[Vanta11a]

Я тут где-то в соседней теме видел пост, объясняющий такие внезапности.

Суть в тупом копипастинге любой более-менее похожей программы (не разбираясь в ней, естественно) под видом своей и просьбой помочь.

[Настя М]

Я сама писала!!!!!!!!!!!!!

[Vanta11a]

Но зачем? Ведь к задаче код не имеет никакого отношения.
=> тупой копипаст.

Может быть попробуете сами что-нибудь сделать?

Алгоритм за 2 прохода:
1 проход - найти максимальный элемент (значение)
2 проход - вывести все номера элементов, равных найденному значению

[Serge_Bliznykov]

Сообщение от Настя М

Я сама писала!!!!!!!!!!!!!

возможно. сами писали. Молодец (без сарказма!).
но Вы ведь писали эту программу для какой задачи?

судя по вашему посту тут
Вы написали этот код для задачи:

Программа. Дано 80 вещественных чисел. Найти порядковый номер того из них, которое наиболее близко к какому-нибудь целому числу.

здесь задание другое? Да. Поэтому и программа должна быть немного ДРУГОЙ.

[Настя М]

Нет! Задание это же. Просто я решила не писать само задание, а написала что конкретно мне нужно сделать.

Я написала программу которая выводит порядковый номер только одного числа, а если чисел несколько, то ... . А теперь я пытаюсь ее переделать, но безуспешно.

[Serge_Bliznykov]

Я написала программу которая выводит порядковый номер только одного числа

какого именно числа? Максимального? И где эта программа?

[Настя М]

Которую вы мне исправили:

program lab7;
uses crt;
type
a1=array[1 .. 90] of real;
var
mas:a1;
i1,m1,n1: integer;
f1:text;

procedure qwe(a: a1; n:integer; var  m: integer);
var
i: integer;
c,k: real;
begin
c:=1.0;
for i:=1 to n do
begin
if frac(a[i])>=0.5 then k:=1-frac(a[i])
else k:=frac(a[i]);;
if k<c then
begin
c:=k;
m:=i;
end;
end;
end;

Begin
clrscr;
assign(f1,'c:\lab7b.txt');
reset(f1);
i1:=1;
n1:=0;
while not eof(f1) do
begin
readln(f1,mas[i1]);
i1:=i1+1;
n1:=n1+1;
end;
close(f1);
qwe(mas,n1,m1);
writeln(m1);
end.

Она работает, но только если число наиболее приближенное к целому одно.



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.