Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
11
Добавлен:
05.06.2018
Размер:
556 б
Скачать
Program Lab_426_Var4;

Type Massive = Array [1..4,1..5] Of Real;

Procedure Poisk(A:Massive; Var P:Real; J:Integer);
Var I:Integer;
Begin
P:=1;
For I:=1 To 4 Do
If A[I,J]<0 Then
P:=P * A[I,J];
End;

Var
I,J:Integer;
P,Y:Real;
A:Massive;

Begin
Randomize;
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;

Y:=0;
For J:=1 To 5 Do
Begin
Poisk(A,P,J);
Y:=Y + Sqr(6-J-P);
End;
Writeln('Y = ',Y);
End.
Соседние файлы в папке 1 семестр сессия