Всм привт. В мене було завдання написати програму на паскал.завдання:Задана матриця 10х10 з випадковими (вд 0 до 100) цлими елементами. Роз-друкувати цю таблицю. Обчислити суму елементв заштриховано частини.Елементи дагоналей також потрбно включати в суму.вот моя програма:Спойлер for Спрятанный: ЦитироватьProgram Test;Uses crt;Constn = 10;Var A: array[1..n,1..n] of real;i,j: integer; s: real;BeginRandomize;Clrscr;For i:=1 to n doBeginFor j:=1 to n dobeginA[i,j]:=random(100);Write (A[i,j]:8:2);end;writeln;End;Readln;writeln('Бi чна дiагональ');For i:=1 to n dobeginWrite (A[i,n-i+1]:8:2);End;writeln('Головна дiагональ');for j:=1 to n dobeginwrite (A[j,j]:8:2);End;textcolor(red);writeln('для вичислення суми елементiв нажмiть Enter');readln;s := 0; For i := n mod 2 + n div 2 To n Do For j := n - i + 1 To i Do s := s + A[i, j]; textcolor(white); writeln('Сума елементiв'); textbackground(Blue); writeln(s); textbackground(black);end.Вот тльки проблема в тому, що програма раху тльки дагонал(( я няк не додумаюсь як порахувати вс елементи, як на малюнку.Пдкажть будь ласка.Подряд идущие сообщения объединены: 22 Декабря 2009, 17:02:08ех вибачаюсь за тему пересидв за ПК видно. програма нби раху все добре
|