Массивы. Сумма заштрихованной области.
Вложений: 1
подскажите пожалуйста..
условие - var A:array [1..9.1..9] of real; s:real; Найти s — сумму элементов из заштрихованной области массива А (пункт "б" на рисунке) Вложение 140074 (заштрихованная область на рисунке, как диагонали в матрицах...правда тут это не очень видно) вышло вот что..но по-моему не то что нужно... 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. |
Часовой пояс GMT +4, время: 18:23. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.