Готовый массив только, Переделать из вещественного в целочисленный Опции

[IlyasKaz]

Переделать из вещественного в целочисленный заранее спасибо А то я догнать не могу как

uses crt; 
const n:=5; 
var i,j:integer; 
t,sum:real; 
b:array[1..n,1..n] of real; 
begin 
clrscr; 
for i:=1 to 5 do begin 
for j:=1 to 5 do begin 
b[i,j]:=random; 
write(b[i,j]:0:2,' '); 
end; 
writeln; 
end; 
for i:=1 to 5 do begin 
for j:=1 to 5 do begin 
t:=b[1,j]; 
b[1,j]:=b[5,j]; 
b[5,j]:=t; 
end; 
sum:=0; 
for i:=1 to 5 do 
begin 
for j:=1 to 5 do 
if (i+j-1<5)then 
begin 
sum:=sum+b[i,j]; 
end; 

end; 
end; 
writeln; 
writeln(sum:2:2); 
writeln; 
end

М

Теги! Правила Форума, п.5, и правила раздела Задачи, п.2 Lapp

[Krjuger]

Lapp извини конешно,но

b:array[1..n,1..n] of real;  // тут

ты ничего не изменил.
А разве не надо переделать сам массив из вещественного в целочисленный?

// почему до 5? может, до n?

Ну как бы у него const n:=5; Ну можеть человеку нравится лазить по программе и менять в каждом цикле число,если вдруг не дай бог матрица станет не 5х5, а 6х6 например

Сообщение отредактировано: Krjuger - 3.06.2011 15:57