|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.12.2008, 20:56 | #1 |
Новичок
Джуниор
Регистрация: 17.12.2008
Сообщений: 2
|
Поменяйте плз метку на репит и унтил)
program matrix;
uses crt; label t,m,n,v; var a:array [1..10,1..10] of integer; i,j,summ1,summ2,proiz,z,x,o,p:integ er; begin clrscr; m: writeln('Vvedite koli4estvo strok ne bolshe 10'); readln(z); if i>10 then goto m; t: writeln('Vvedite koli4estvo stolbcov ne bolshe 10'); readln(x); if j>10 then goto t; writeln('vvedite elementi'); for i:=1 to z do for j:=1 to x do begin readln(a[i][j]); end; writeln('Vash massiv'); for i:=1 to z do begin for j:=1 to x do write(a[i][j]:4); writeln; end; n: writeln('Vvedite stroky symmy kotoroi nado pos4itat'); readln(o); if o>z then goto n; v: writeln('Vvedite stolbec summy kotorogo nado pos4itat'); readln(p); for I:=1 to z do summ2:=summ2+a[i][p]; for j:=1 to x do summ1:=summ1+a[o][j]; {end;} {end;} writeln(' Symma ',o,' stroki: ',summ1); writeln(' Symma ',p,' stolbca: ',summ2); writeln(' ix proizvedenie: ',summ1*summ2); readln; end. Поменяйте плз метки на репиты и унтилы плз |
25.12.2008, 12:17 | #2 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
на числа Фибоначчи, вайл репит | Ananim-Pbl6ak | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 24.12.2008 21:45 |
Помогите пожалуста сделать задачу через ваил и репит | Liver | Помощь студентам | 2 | 16.12.2008 15:35 |
Помогите пожалуста сделать задачу через ваил и репит | Liver | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 16.12.2008 11:49 |
ADO поставить метку в таблице... | Roof | БД в Delphi | 5 | 16.08.2008 15:58 |