Описать процедуру поиска наибольшего и наименьшего элемента массива

@elena231 · Регистрация: 15.12.2014

Author24 — интернет-сервис помощи студентам

Описать процедуру поиска наибольшего и наименьшего элемента массива. С помощью этой процедуры составить программу, которая определяет совпадают наибольший и наименьший элементы двух массивов A[1..n], B[1..n].

@vint-81 · 17.12.2014, 18:11

если правильно понял...

Pascal

const n=10;
type mas=array[1..n] of integer;
var a,b:mas;
    maxa,maxb,mina,minb:integer;
procedure max_and_min(x:mas;var maxx,minx:integer);
var i:integer;
begin
 maxx:=x[1];minx:=x[1];
 for i:=1 to n do
  begin
   if x[i]>maxx then maxx:=x[i];
   if x[i]<minx then minx:=x[i];
  end
end;
procedure srav(a1,a2:integer;ch1,ch2:char;s:string);
begin
 if a1>a2
  then writeln(s,' массива ',ch1,' больше ',s,' массива ',ch2)
  else
   if a1=a2
    then writeln(s,' массива ',ch1,' равен ',s,' массива ',ch2)
    else writeln(s,' массива ',ch1,' меньше ',s,' массива ',ch2)
end;    
procedure vvod(var x:mas;ch:char);
var i:integer;
begin
 writeln(ch,':');
 for i:=1 to n do
  begin
   x[i]:=-10+random(21);
   write(x[i]:4)
  end;
 writeln 
end;
begin 
 randomize;
 vvod(a,'A');
 vvod(b,'B');
 max_and_min(a,maxa,mina);
 max_and_min(b,maxb,minb);
 srav(maxa,maxb,'A','B','max');
 srav(mina,minb,'A','B','min');
end.

@elena231 · 17.12.2014, 21:04 **[ТС]**

program gt;
Type Massiv=array[1..100] of real;
Var a,b:Massiv;
n,i:integer;
max,max2,min,min2:real;

procedure proverka(x:Massiv; n,i:integer;max,max2,min,min2:real) ;

begin
max:=a[1];min:=a[1];
for i:=1 to n do
begin
if(a[i]>max)then max:=a[i];
if(a[i]<min)then min:=a[i];
end;
end;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
read(b[i]);
(здесь выдает ошибку) proverka(a,max,min);
proverka(b,max2,min2);
if (max = max2) and (min = min2) then writeln('YES')else
writeln('NO');
end.

@elena231 0 / 0 / 0 Регистрация: 15.12.2014 Сообщений: 9
		1
	Описать процедуру поиска наибольшего и наименьшего элемента массива 17.12.2014, 17:17. Показов 1811. Ответов 2 Метки нет (Все метки) Описать процедуру поиска наибольшего и наименьшего элемента массива. С помощью этой процедуры составить программу, которая определяет совпадают наибольший и наименьший элементы двух массивов A[1..n], B[1..n]. 0

@elena231 0 / 0 / 0 Регистрация: 15.12.2014 Сообщений: 9
	17.12.2014, 21:04 [ТС]	3
	program gt; Type Massiv=array[1..100] of real; Var a,b:Massiv; n,i:integer; max,max2,min,min2:real; procedure proverka(x:Massiv; n,i:integer;max,max2,min,min2:real) ; begin max:=a[1];min:=a[1]; for i:=1 to n do begin if(a[i]>max)then max:=a[i]; if(a[i]<min)then min:=a[i]; end; end; begin readln(n); for i:=1 to n do read(a[i]); for i:=1 to n do read(b[i]); (здесь выдает ошибку) proverka(a,max,min); proverka(b,max2,min2); if (max = max2) and (min = min2) then writeln('YES')else writeln('NO'); end. 0

Описать процедуру поиска наибольшего и наименьшего элемента массива

Решение