program Project4_2;
{$APPTYPE CONSOLE}
uses
SysUtils;
const M=1; N=10;
var d:array [M..N] of real;
I:byte;
begin
For i:=1 to 10 do
Readln (d[i]);
Правильно ли я написал операцию ввода вещественных чисел в одномерный массив? И еще один вопрос: Как мне написать так, чтобы идентификаторы именованных констант (M,N) использовались при вычислениях вместо значений границ индексов массива.
P.S. Хотелось бы узнать как найти минимальное и максимальное значение элементов массива =)
-
1) Вроде правильно, возьми и проверь :) 2) Low(d) и High(d)– hovadur29 мар 2014 в 8:34
-
1раз есть константы, то их и стоит использовать в цикле. То есть For i:=M to N do– KoVadim29 мар 2014 в 8:40
Добавить комментарий
|
1 ответ
Вывод правильный, про константы ответили выше. Нахождение min и max:
min:=d[M];
max:=d[M];
for i:=M to N do
begin
if d[i]<min then
min:=d[i];
if d[i]>max then
max:=d[i];
end;
-
Лучше не использовать имена методов (
min
иmax
, из стандартного модуля Math) для имен переменных.– Kromster18 янв 2017 в 11:05