Реплики часов Радо : Porsche Design
Незачто большое.Да..естественно...так надо...Через минут пять выложу ответ...
Program Di_2;uses crt;var k,e,q,i,j,m,n:integer; a:array[1..10,1..10] of integer;begin clrscr; randomize;writeln('Введите размерность матрицы: ');writeln('Введите количество строк: '); read(m);writeln('Введите количество столбцов: '); read(n);writeln('Исходная сгенерированная матрица: ');for i:=1 to do begin for j:=1 to do begin a[i,j]:=random(10)-random(5)+random(5); write(a[i,j]:4); end;writeln;end;Writeln('Введите число-множитель: '); read(q);writeln('Введите номер столбца, который нужно умножить на число-множитель: '); read(e);writeln('Введите номер столбца которому нужно прибавить столбец под номером ',e,' :'); read(k);for i:=1 to do begin a[i,e]:=a[i,e]*q; a[i,k]:=a[i,k]+a[i,e]; end;writeln('Обработанная матрица: ');for i:=1 to do begin for j:=1 to do write(a[i,j]:4); writeln; end;readkey; end.
Ого, спасибо, реплики часов Радо да ты просто спасаешь меня!!!Ещё есть последняя программировании не бум-бум, только курс, работала весь семестр вообще так ничего не поняла по Паскалю...Вот она:3) Из элементов исходной матрицы, лежащих на главной диагонали под ней, сформировать вектор, котором первый элемент каждой строки непосредственно следует за диагональным элементом предыдущей.
В профессии гестаповца.. или как это правильно говорится)).
