Program z4;
Var a, c: Array [1..5, 1..5] of Real;
i, j: integer;
Begin
Writeln (’ Введите матрицу’);
For i:=1 To 5 Do
For j:=1 To 5 Do Read (a[i, j]);
For i:=1 To 5 Do
Begin
j:=1;
Repeat
If a[i, j] < 0 Then c[i, j]:= –1 Else c[i, j]:= 1;
j:=j+1
Until j > 5
End;
For i:=1 To 5 Do
Begin
For j:=1 To 5 Do Write (c[i, j]); Writeln
End
End.
Задание 6. Программирование с использованием подпрограмм
Составить схему алгоритма главной программы и подпрограммы, главную программу и подпрограмму. Значения исходных данных выбрать самостоятельно. Варианты заданий приведены в табл. 5.
