Переписать с бейсика на паскаль

@MashaKasha · Регистрация: 12.11.2012

Author24 — интернет-сервис помощи студентам

Очень нужна помощь!!!
В массиве С(8,4) определить сумму элементов до первого встретившегося нулевого значения в каждом столбце массива. В каком столбце эта сумма максимальная?
На бейсике:

PureBasic

cls
input "введите количество строк",m
input "введите количество столбцов",n
dim c(m,n)
dim s(n)
Randomize timer
for i=1 to m
for j=1 to n
c(i,j)=int(rnd(1)*200)-100
print c(i,j);
next j
print
next i
for j=1 to n
sm=0
for i=1 to m
if c(i,j)<>0 then
sm=sm+c(i,j)
else
exit for
end if
next i
print "сумма до первого нуля в",j,"столбце=",sm
s(j)=sm
print "s(",j,")=",s(j)
next j
mx=s(1)
jmx=1
for j=2 to n
if s(j)>mx then
mx=s(j)
jmx=j
end if
next j
Print "максимальная сумма=", mx
print "ьфксимальная сумма находиться в",jmx, "столбце"
end

	24.12.2012, 14:53