Добавил:
TheBazilius
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:1 семестр сессия / 18
.pas Program Lab_426_Var18;
Type Matrix = Array [1..4,1..5] Of Integer;
Type Massive = Array [1..5] Of Real;
Procedure Sozdanie(A:Matrix; Var J:Integer; Var B:Massive);
Var I:Integer;
Min,Max:Integer;
Begin
Min:=A[1,J];
Max:=Min;
For I:=2 To 4 Do
Begin
If Min>A[I,J] Then Min:=A[I,J];
If Max<A[I,J] Then Max:=A[I,J];
End;
B[J]:=(Min + Max)/2;
End;
Var
I,J:Integer;
A:Matrix;
B:Massive;
Begin
Randomize;
Writeln('Matrix A :');
For I:=1 To 4 Do
Begin
For J:=1 To 5 Do
Begin
A[I,J]:=Random(21) - 10;
Write(A[I,J],' ');
End;
Writeln;
End;
Writeln;
Writeln('Massive B : ');
For J:=1 To 5 Do
Begin
Sozdanie(A,J,B);
Write(B[J],' ');
End;
End.
Type Matrix = Array [1..4,1..5] Of Integer;
Type Massive = Array [1..5] Of Real;
Procedure Sozdanie(A:Matrix; Var J:Integer; Var B:Massive);
Var I:Integer;
Min,Max:Integer;
Begin
Min:=A[1,J];
Max:=Min;
For I:=2 To 4 Do
Begin
If Min>A[I,J] Then Min:=A[I,J];
If Max<A[I,J] Then Max:=A[I,J];
End;
B[J]:=(Min + Max)/2;
End;
Var
I,J:Integer;
A:Matrix;
B:Massive;
Begin
Randomize;
Writeln('Matrix A :');
For I:=1 To 4 Do
Begin
For J:=1 To 5 Do
Begin
A[I,J]:=Random(21) - 10;
Write(A[I,J],' ');
End;
Writeln;
End;
Writeln;
Writeln('Massive B : ');
For J:=1 To 5 Do
Begin
Sozdanie(A,J,B);
Write(B[J],' ');
End;
End.
Соседние файлы в папке 1 семестр сессия