Ответ
 
Опции вопроса Поиск в этом вопросе Опции просмотра
  #1  
Старый 05.09.2011, 17:52
Аватар для Guest
Guest
Вопрос
Сообщений: n/a
По умолчанию

Всм привт. В мене було завдання написати програму на паскал.завдання:Задана матриця 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ех вибачаюсь за тему пересидв за ПК видно. програма нби раху все добре
Ответить с цитированием
Ответ



Похожие вопросы
Тема Автор Раздел Ответов Последний вопрос или ответ
Увага!!! Тернополяни!Хто знає як можна заробити великі гроші не виїжжаючи закордон і за межі нашого рідного міста ? Guest Четвертый архив 0 10.12.2011 21:56
Я знайшов у "отвєтах" багато слів про нас, "хохлів" (тіпа) . А про москалів і кацапів нічого. Ми брацькі,б...,народи? Guest Продолжение нового архива 0 21.11.2011 04:09
Астіоніми, гідроніми, антропоніми та ін. на українській мові Guest Третий архив вопросов и ответов 0 30.09.2011 05:40
Адміністрування локальних компютерних мереж (інтернет-клубів, навч. приміщень..) Guest Продолжение архива вопросов 0 05.09.2011 08:33
Допоможіть підібрати конфігурацію ПК до $1600 (без монітору) Guest Продолжение архива вопросов 0 04.09.2011 20:04



© www.otvetnemail.ru - Форум вопросов и ответов.