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

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

Решение:

program Param1;

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

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

Function MinInt(A:Iarray;N:integer):Integer;
 var MinEl,i:integer;
begin
 MinEl:=1;
 for i:=1 to N do
   if (A[i]<A[MinEl]) then MinEl:=i;
 MinInt:=MinEl;
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(MinInt(A,Na));

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

 EnterArray(C,Nc);
 Writeln(MinInt(C,Nc));

end.

program Param1;

type

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

var

A,B,C:IArray;

Na,Nb,Nc:integer;

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

var MinEl,i:integer;

begin

MinEl:=1;

for i:=1 to N do

if (A[i]<A[MinEl]) then MinEl:=i;

MinInt:=MinEl;

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(MinInt(A,Na));

EnterArray(B,Nb);

Writeln(MinInt(B,Nb));

EnterArray(C,Nc);

Writeln(MinInt(C,Nc));

end.

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

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

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

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

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