Помогите ввести матрицу...!, задачау знаю как делать, а вот как ввести такую матрицу? Опции

[sanek]

Задана квадратная матрица A вещественных чисел размера NxN(т.е 20 на 20)(n<=20, задается как параметр). Построить по ней матрицу B такого же размера
НЕ понимаю как ввести матрицу А ну и Б по ней...

[Rom1k]

напиши то,что смог сделать

[compiler]

используй вложеные цыклы.. во внешнем проходиш по одному индексу, а во втором по второму... в теле вложеного цикла читаеш/присваеваеш значение...

на форуме обсуждалось не раз...
я лично выкладывал решение(всегда мечтал это сказать :) )

[sanek]

Да блин , если все такие умники, то напишите блин как ввести эту матрицу!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[мисс_граффити]

for i:=1 to N do
  for j:=1 to N do
    readln(A[i,j]; 

[sanek]

20 на 20? что блин трудно написать что ли?

[samec]

20 на 20? что блин трудно написать что ли?

program vvod;
 var
 A:array[1..20,1..20]of real;
 N,i,j:integer;
begin
N:=20;
for i:=1 to N do
  for j:=1 to N do
    readln(A[i,j];
end.

[sanek]

размера NxN(т.е 20 на 20)(n<=20, задается как параметр).
N<20!

[volvo]

Послушай, тебе же ясно сказали, поиск тебе поможет... Ты что, решил что в сказку попал? И по первому твоему ПРИКАЗУ (а иначе твои посты я просто не могу трактовать) все просто ОБЯЗАНЫ кинуться и выполнять то, что тебе надо? А с какой стати, ты не подумал?

Если даже тебе и напишут полное решение, кто тебе сказал, что ты поймешь его? Оно будет специально написано так, что ты поседеешь, пока будешь разбираться в том, что там происходит, чтоб в следующий раз думал, КАК задавать вопросы!

[sanek]

Задана квадратная матрица A вещественных чисел размера NxN(т.е 20 на 20)(n<=20, задается как параметр). Построить по ней матрицу B такого же размера
Я что блин полное решение прошу? я просто не понимаю как n<=20 сделать?

[мисс_граффити]

program vvod;
 var
 A:array[1..20,1..20]of real;
 N,i,j:integer;
begin
repeat
  writeln('vvedite N<=20');
  readln(N);
until N<=20;
for i:=1 to N do
  for j:=1 to N do
    readln(A[i,j];
end.

так?

[sanek]

program upr;
uses crt;
const n=4;
type mas=array[1..20,1..20] of integer;
var a,b,c:mas;i,j:integer;
for i:=1 to n do begin
for j:=1 to n do begin
write('a[',i,','j,']=');
read(a[i,j]);
gotoxy(j*10,i);end;end;
вот вроде так?