29.11.2010, 17:59 | #1 (permalink) |
Новичок
Регистрация: 06.11.2010
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Массивы. Сумма заштрихованной области.
условие - var A:array [1..9.1..9] of real; s:real; Найти s — сумму элементов из заштрихованной области массива А (пункт "б" на рисунке) (заштрихованная область на рисунке, как диагонали в матрицах...правда тут это не очень видно) вышло вот что..но по-моему не то что нужно... uses crt; var a:array[1..4,1..4] of real; s:real; i,j:integer;c,k:real; begin clrscr; FOR I:=1 TO 3 DO for j:=1 to 3 do begin write ('a[',i,',',j,']='); readln(a[i,j]) end; for i:= 1 to 3 do begin for j:= 1 to 3 do write(a[i,j]:6:2); writeln; end; writeln; c:=a[2,2]; for i:= 1 to 3 do begin for j:= 1 to 3 do if (i=j) or (i+j=4) then k:=k+ a[i,j]; end; s:= k; writeln('suma elementiv= ',s:6:2); readln end. |
29.11.2010, 17:59 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Если вас интересует быстрое решение проблемы, обратите внимание на эти темы Пропадают значки в области уведомлений Паскаль. Сумма цифр числа Сумма числового ряда Сумма числового ряда. Найдите ошибку Контрольная сумма |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|