![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 29.03.2010
Сообщений: 12
|
![]()
--------------------------------------------
4. Работает ----------------------------------------- var a: array [1..30, 1..30] of integer; i, j, n, m, s, k: integer; begin writeln('Введите размер матрицы'); readln(n, m); writeln('Исходная матрица'); {Заполняем матрицу случайными числами и выводим её} Randomize; for i := 1 to n do for j := 1 to m do a[i, j] := random(100) - 20; for i := 1 to n do begin writeln; for j := 1 to m do write(a[i, j]:5); end; writeln; s := 0; k := 0; for i := 1 to n do if (i mod 2 = 0) then begin for j := 1 to m do s := s + a[i, j]; k := i; writeln(' сумма элементов=', s, ' находиться в ', k, ' строке' ); s := 0; end; end. |
![]() |
![]() |
![]() |
#2 |
Участник клуба
Регистрация: 15.07.2008
Сообщений: 1,933
|
![]() Код:
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 29.03.2010
Сообщений: 12
|
![]()
Огромное спасибо))))))))
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
"Mail.Ru Агент" что это? и как это? | Nick007 | Софт | 9 | 21.11.2009 10:13 |
Что это такое и как это того... | Alex Cones | Общие вопросы Delphi | 2 | 11.10.2009 12:04 |
SOS! Как это написать и Excel? | Vedodel | Microsoft Office Excel | 8 | 18.09.2009 21:07 |
Как такое сделать (извените. но даже не знаю как это называется) | Van'Denis | HTML и CSS | 3 | 30.08.2009 10:46 |
Каким способом мне это написать? | FromHell | Помощь студентам | 2 | 17.12.2008 07:57 |