Миссия: спасти студента от армии.

[Student_ya]

Привет всем! У мне вот уже на след неделе зачет будет по программированию, но мне тяжело дается этот предмет. Купил книжки читаю, тестирую на паскале но процесс самосовершенствования идет очень медленно. А зачет долги не прощает. Задание такое: Написать программу, которая позволяет найти и изменить элемент в матрице. Преподаватель очень принципиальный, он еще попросил написать в двух парадигмах. В эффективной(тупо и прямо) и удобной(учесть все возможные ошибки). Документацию к ним еще....Ну это не проблема. Мне главное программу ниписать. Если я вижу текст программы, я могу сказать что она делает и найти ошибку... но написать самому - тут ступор, как баран. Помогите пожалуйста барашку))) буду признателен. Заплачу по необходимости
Вот я что то начеркал но это вряд ли поможет

VAR a:ARRAY[1..100,1..100] OF integer;
N, M, i, j :integer;
 
BEGIN
 write('N, M -> ');
 readln(N, M);
 write('Input matrix -> ');
 FOR i:=1 TO N DO FOR j:=1 TO M DO
 BEGIN
  write('A[',i,',',j,'] -> ');
  readln(a[i, j]);
 END;
 readln;
END.

PROCEDURE Find(E,Z : Integer);
BEGIN
  WriteLn('Vvedite chislo kotoroe nujno izmenit: ');
  ReadLn(e);
  WriteLn('Vvedite chislo na kotoroe nujno izmenit E: ');
  ReadLn(Z);
  BEGIN
    FOR i:=1 TO n DO
    FOR j:=1 TO m DO
    IF a[i,j] = E THEN
    a[i,j] := Z;
  END;
END.

________
Код нужно оформлять по правилам:
Не жирным шрифтом, а
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Student_ya]

Идет солдат по городу....По незнакомой улице....

[Mad_Cat]

стучи в аську -договоримся за денежку!

[sig_GB]

Лови солдат:

USES Crt;
Type matrix:array [1..100,1..100] of byte;
Procedure Find(mas:matrix;k,r,n,m:integer);
Var i,j:integer;
Begin
For i:=1 to n do
	For j:=1 to m do 
		If mas[i,j]=k then mas[i,j]:=r;
End;

Var 
mas:matrix;
n,m,i,j,k,r:integer;
Begin
ClrScr; Textcolor(2);
Randomize;
Writeln ('Write size:'); Readln(n,m);
For i:=1 to n do
	For j:=1 to m do begin
		mas[i,j]:=random(256)-125;
		if j<>m then write(mas[i,j],'  ') else writeln(mas[i,j]) end;
Writeln('Write element:'); Readln(k);
Writeln('Write new element:'); Readln(r);
Find(mas,k,r,n,m);
Readkey End.

Если что - поправь ошибки синтаксические.
Вывод можешь сам организовать.
Вместо цифр в массиве могут быть буквы - ***** of char; и ввод в ручную.
===
напиши в личку если будут вопросы.

[Student_ya]

Спасибо sig_GB=))) Постараюсь исправить ошибки.
Mad_Cat если что напишу))) если туго будет

[Sauber]

также согласаен помогать за не большое вознаграждение)
(ICQ-402142430)

[andrewpalkin]

Согласен на то , что бы ты пошел служить ...

[Student_ya]

Какие вы злые!! =)