ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Только что пару пастов выше разобран практически такой пример.

народ помогите плиз с пргой на оператор FOR
P=0.1*0.5*0.9...("*" умножить)
N=10

парни, помогите...пожалуйста...Турб о Паскаль.
укр)Дано матриці А та В цілих чисел, вивести їх у вигляді масивів. Сформувати та вивести третій масив С згідно умови варіанту:
рус)Даны матрицы А и У целых чисел, вывести их в виде массивов. Сформировать и вывести третий массив С согласно условия варианта:
варіант/вариант:
C=А(в квадрате) + В(в степени T)
Матрица А(m=3,n=3),В(m=3,n=3)
в матрице С обчислить C(минимальное(min))

uses crt;
const n=3;
var A,B:array[1..3,1..3] of integer;
C:array[1..3,1..3] of real;
i,j:byte;
t,min:real;
Begin
clrscr;
for i:=1 to n do
for j:=1 to n do
begin
writeln('A',i,j,'=');
readln(A[i,j]);
end;
for i:=1 to n do
for j:=1 to n do
begin
writeln('B',i,j,'=');
readln(B[i,j]);
end;
writeln('T=');
readln(t);
min:=32767;
for i:=1 to n do
begin
for j:=1 to n do
begin
C[i,j]:=sqr(A[i,j])+exp(t*ln(B[i,j]));
if C[i,j]<min then min:=C[i,j];
write(' ',C[i,j]:2:2);
end;
writeln;
end;
writeln('min=',min:2:2);
readln;
End.

вот что получилось:


PS.знаю что лучше было бы min значение присваивать первому ел матрицы,но в данном случае и так прокатит,просто впадло было еще 1 цикл писать