Program abc;
const m=3;
type
ms=array [1..m] of real;
var
min, max: real;
procedure maxmin(a:ms; max:real);
var
i, j: integer;
begin
write ('a[',i,',',j,']=');
readln (a[i,j]); {тут программа подчеркивает i и пишет invalid qualifier}
end;
max:=a[1,1]
for i:=1 to m do
for j:=1 to m do
begin
if (max<a[i,j]) then max:=a[i,j] {как сделать, чтобы программа нашла не 1 максимальный элемент, а несколько, т.к. их потом нужно будет сложить}
end;
Паскаль. Массивы
Дан массив целых чисел. Сформировать наибольшее возможное число из цифр максимального и минимального элементов этого массива. При решении использовать функцию или процедуру.
Интересно, в чем возникла проблема? В поиске минимального и максимального элемента массива?
>>Интересно, в чем возникла проблема?
В том что автор := <ник_автора> + "тяй"]
В том что автор := <ник_автора> + "тяй"]
Цитата: UAS
>>Интересно, в чем возникла проблема?
В том что автор := <ник_автора> + "тяй"]
В том что автор := <ник_автора> + "тяй"]
Взаимно
В поиске максимального и минимального элементов.
Выкладывайте что уже сделали
Код:
потом ((эту же процедуру)?, или вообще по-другому нужно программировать) нужно будет использовать для нахождения минимальных элементов. Как это сделать?