Решаем задачи Абрамян на Паскале. Param2

Param2. Описать функцию NMax($$A$$, $$N$$) целого типа, находящую номер максимального элемента вещественного массива $$A$$ размера $$N$$. С помощью этой функции найти номера максимальных элементов массивов $$A$$, $$B$$, $$C$$ размера $$N_A$$, $$N_B$$, $$N_C$$ соответственно.

Решение:

program Param2;

type
 IArray = array[1..10] of integer;

var
 A,B,C:IArray;
 Na,Nb,Nc:integer;

Function NMax(A:Iarray;N:integer):Integer;
 var MaxEl,i:integer;
begin
 MaxEl:=1;
 for i:=1 to N do
   if (A[i]>A[MaxEl]) then MaxEl:=i;
 NMax:=MaxEl;
end;

Procedure EnterArray(var A:Iarray; var N:integer);
var i:integer;
begin
 Write('Size:');
 Readln(N);
 for i:=1 to N do
  begin
   Write(i,': ');
   Readln(A[i]);
  end;
end;

begin
 EnterArray(A,Na);
 Writeln(NMax(A,Na));

 EnterArray(B,Nb);
 Writeln(NMax(B,Nb));

 EnterArray(C,Nc);
 Writeln(NMax(C,Nc));
end.

program Param2;

type

IArray = array[1..10] of integer;

var

A,B,C:IArray;

Na,Nb,Nc:integer;

Function NMax(A:Iarray;N:integer):Integer;

var MaxEl,i:integer;

begin

MaxEl:=1;

for i:=1 to N do

if (A[i]>A[MaxEl]) then MaxEl:=i;

NMax:=MaxEl;

end;

Procedure EnterArray(var A:Iarray; var N:integer);

var i:integer;

begin

Write('Size:');

Readln(N);

for i:=1 to N do

begin

Write(i,': ');

Readln(A[i]);

end;

begin

EnterArray(A,Na);

Writeln(NMax(A,Na));

EnterArray(B,Nb);

Writeln(NMax(B,Nb));

EnterArray(C,Nc);

Writeln(NMax(C,Nc));

end.

Другие задачи из раздела Param можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Param2

Комментарии:

Добавить комментарий Отменить ответ