Оч срочно надо

[TwEEkcs]

ввести пять чисел.. В каждом числе удалить хвостовые цифры 5.например дано 2355, результат 23) Использовать процедуру замены исходного числа на значение , полученное после удаления хвостовых цифр 5.

[__STDC__]

ну например так...

procedure replace(var x:integer);
begin
	while (x mod 5 = 0) do
		x := x div 10;
end;

var
	x:integer;
begin
	readln(x);
	replace(x);
        writeln(x);
	readln;
end.

***
хотя это отстойный вариант... тогда будут подходить числа, оканчивающиеся и на ноль
так надо

procedure replace(var x:integer);
begin
	while (x mod 10 = 5) do
		x := x div 10;
end;

[coffe2009]

Пожалуйста, помогите решить задачу. Без нее могу закрыть сессию.

В двумерном массиве создать матрицу. Найти строку с наименьшей суммой значений элементов и вывести его номер.

[__STDC__]

На будущее, создавайте отдельные темы со своим вопросом...

***
что-нибудь вроде такого наверное

const
	n = 5;
	
type
	matrix = array[1..n,1..n] of integer;
	
procedure fill_matrix(var X:matrix);
var
	i,j:integer;
begin
	randomize;
	for i:=1 to n do
		for j:=1 to n do
			X[i,j] := random(3);
end;
	
function imin(X:matrix):byte;
var
	i,j,s,sum:integer;
begin
	s := 0;  imin := 1;
	for i:=1 to n do
		for j:=1 to n do
			s := s + X[i,j];
	
	for i:=2 to n do begin
		sum := 0;
		for j:=1 to n do
			sum := sum + X[i,j];
		if (sum < s) then begin
			imin := i;
			s      := sum;
		end;
	end;
end;

procedure out_matrix(X:matrix);
var
	i,j:integer;
begin
	for i:=1 to n do begin
		for j:=1 to n do
			write(X[i,j]:4);
		writeln;
	end;
end;

var
	A:matrix;
BEGIN
	fill_matrix(A);
	out_matrix(A);
	writeln(imin(A));
	readln;
END.