вас Заранее большое
8. Найдите ошибки в записи заголовков подпрограмм
1) Procedure A (x+y);
2) Procedure A (10);
3) Procedure A (X; Y);
4) Procedure A (X: integer, Y: Real, Z: Boolean);
5) Function A (A: Real): Real;
6) Function A (Р: Real);
7) Function A (10): 8) Function (x+y);
Объяснение:
Сейчас Александровского реального училища располагается Государственный аграрный университет Северного Зауралья. Учебное заведение является региональным центром образовательной деятельности, научного обеспечения и производства наукоемкой продукции в агропромышленном комплексе Тюменской области. Он участвует в формировании региональной аграрной политики и в выполнении Федеральных программ по профилю своей деятельности, которая адаптирована к специфике природных условий и социально-экономической инфраструктуре производительных сил области. В настоящее время в университете обучается более 5000 студентов.
const n=6;
var
p:array[1..n,1..n] of real;
i,j:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
p[i,j]:=10*random-5;
write(p[i,j]:6:1);
end;
writeln;
end;
for i:=1 to n do begin
for j:=1 to i-1 do p[i,j]:=round(p[i,j]);
for j:=i+1 to n do p[i,j]:=0;
end;
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to n do write(p[i,j]:6:1);
writeln;
end;
end.
Пример:
Исходный массив:
-1.8 4.9 -1.2 3.2 1.9 -2.0
4.5 4.9 4.8 -0.6 -2.5 1.2
2.3 0.3 1.1 0.3 -3.0 2.5
1.7 -0.5 2.2 -3.6 -3.6 -4.4
-0.4 -4.7 1.9 -3.8 -0.7 0.1
-4.4 -3.2 -4.5 -4.8 1.5 3.4
Полученный массив:
-1.8 0.0 0.0 0.0 0.0 0.0
5.0 4.9 0.0 0.0 0.0 0.0
2.0 0.0 1.1 0.0 0.0 0.0
2.0 -1.0 2.0 -3.6 0.0 0.0
0.0 -5.0 2.0 -4.0 -0.7 0.0
-4.0 -3.0 -5.0 -5.0 1.0 3.4