![]() |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
![]() |
Romario |
![]()
Сообщение
#1
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 89 Пол: Мужской Репутация: ![]() ![]() ![]() |
Начинаю серьёзно учить Паскаль и вот решил создать и пихать сюда все неясности, если вы конечно не против
Первые вопросы:
|
![]() ![]() |
AlaRic |
![]()
Сообщение
#2
|
... ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация: ![]() ![]() ![]() |
Вот тебе №1 в разделе матриц:
Код program n1; const n=5; var a:array[1..n,1..n] of integer; i,j,k:integer; arif,s:real; begin s:=0;k:=0; writeln('ввести матрицу'); for i:=1 to n do for j:=1 to n do read(a[i,j]); for i:=1 to n do for j:=i to n do if a[i,j]>0 then begin k:=k+1; s:=s+a[i,j]; end; arif:=s/k; write('ответ ',arif:7:2); end. Остальное лень ;D ;D |
![]() ![]() |
![]() |
Текстовая версия | 22.06.2025 10:08 |