Добавил:
dima_meh96
kostikboritski@gmail.com
Выполнение курсовых, РГР технических предметов Механического факультета. Так же чертежи по инженерной графике для МФ, УПП. Писать на почту. Дипломы по кафедре Вагоны
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:информатика (не сорт) / lab8
.pas Program Lab8;
Const
N=3;
Var
M:array[1..N, 1..N] of integer;
i,j:integer;
s:real;
Begin
writeln('введите элементы массива:');
For i:=1 to N do
For j:=1 to N do
Begin
write('M[',i,'',',',j,']=');
readln(M[i,j]);
end;
writeln('вывод массива:');
For i:=1 to N do
Begin
For j:=1 to N do write(M[i,j]:4);
Writeln;
end;
begin
s:=1;
for i := 1 to N do
s := s * M[i, 3-i+1];
writeln('произведение побочной диагонали = ', s);
end;
End.
Const
N=3;
Var
M:array[1..N, 1..N] of integer;
i,j:integer;
s:real;
Begin
writeln('введите элементы массива:');
For i:=1 to N do
For j:=1 to N do
Begin
write('M[',i,'',',',j,']=');
readln(M[i,j]);
end;
writeln('вывод массива:');
For i:=1 to N do
Begin
For j:=1 to N do write(M[i,j]:4);
Writeln;
end;
begin
s:=1;
for i := 1 to N do
s := s * M[i, 3-i+1];
writeln('произведение побочной диагонали = ', s);
end;
End.
Соседние файлы в папке информатика (не сорт)