ПОСМОТРИТЕ, ПОЖАЛУЙСТА, ПРОГРАММЫ НА ЯЗЫКЕ ПАСКАЛЬ!! СРОЧНО!! ЕСТЬ НАРАБОТКИ)

[НАСТЯ 18:)]

помоги, пожалуйста, написать по отдельности программы

[__STDC__]

а в чем проблема? берешь за основу все кроме двух вышеназванных процедур, и в первую программы вставляешь процедуру change, а во вторую create_arr.. вот и все.. ну и внизу вызову процедур будут чуть другие.. первая в принципе как выше, ничего менять не надо.. а для второй просто заменить процедуру и внизу написать что то вроде

begin
	fill_matrix(A);
	out_matrix(A);
	writeln;
	create_arr(B,A);
	readln;
end.

[НАСТЯ 18:)]

я со второй задачей ничего не поняла

[__STDC__]

const
	n = 5; 
	
type
	matrix = array[1..n,1..n] of integer;
	min_arr = array[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(100);
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]:3);
		writeln;
	end;
end;

procedure create_arr(var X:min_arr; Y:matrix);
var
	i,j:integer;
begin
	for i:=1 to n do begin
		X[i] := Y[1,i];
		for j:=1 to n do 
			if (Y[j,i] < X[i]) then X[i] := Y[j,i];
		write(X[i]:3);
	end;
end;

var
	A:matrix;
	B:min_arr;
begin
	fill_matrix(A);
	out_matrix(A);
        writeln;
	create_arr(B,A);
	readln;
end.

P.S. Это Миса на аватарке? =)

[НАСТЯ 18:)]

это одна программа??

[__STDC__]

Это вторая программа) процедуры fill_matrix и out_matrix носят вспомогательный характер, первая заполняет матрицы, вторая выводит на экран.. Поэтому удобно программы объединить в одну.. чтобы не копировать все два раза...)

[НАСТЯ 18:)]

мне просто для курсовой лучше чтобы листов было побольше.
P.S. да)

[НАСТЯ 18:)]

а первая???

[__STDC__]

а первая в посте #6 =)

[НАСТЯ 18:)]

У меня еще есть вопрос:
Если у меня в программе условие: UpCase(s[i]) in q. Его в блок-схему так и писать или как-нибудь по другому??