Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Лиса777
0 / 0 / 1
Регистрация: 05.12.2014
Сообщений: 20
#1

Найти сумму элементов заштрихованной области - Turbo Pascal

27.04.2015, 18:55. Просмотров 471. Ответов 1
Метки нет (Все метки)

Ребятки, подскажите пожалуйста, как найти сумму элементов заштрихованной области? Если можно, то напишите программку..буду очень благодарна. Фото прикрепляю.
P.S. Числа рандомные.
Название: JMNv9qkowhE.jpg
Просмотров: 21

Размер: 10.3 Кб
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.04.2015, 18:55
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти сумму элементов заштрихованной области (Turbo Pascal):

Найти сумму элементов массива из заштрихованной области
Помогите кто-нибудь с задачкой, что-то я совсем ее не пойму(( Найти сумму из...

Найти S - сумму элементов из заштрихованной области массива A
пожалуйста помогите с решением: VAR A:ARRAY OF REAL; S:REAL; Найти S - сумму...

Найти сумму элементов из заштрихованной области массива
Помогите пожалуйста с задачей! var A:array of real; s:real; Найти s-сумму...

Найти сумму элементов двумерного массива в заштрихованной области
Привет Проблема))) Нужно найти сумму элементов двумерного массива(3х3) в...

Дана матрица. Найти сумму элементов из заштрихованной области
Объясните пожалуйста,что означают и для чего эти операторы(выделенные)? Дана...

Найти сумму элементов массива в заштрихованной области двумерного массива
1.Найти сумму элементов массива в заштрихованной области двумерного массива.

1
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,330
27.04.2015, 21:22 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses crt;
const n=9;
var a:array[1..n,1..n] of integer;
    i,j,k,s:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
s:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    if((j>=i)and(j<=n-i+1))
    or((j>=n-i+1)and(j<=i)) then
     begin
      s:=s+a[i,j];
      textcolor(12)
     end
    else textcolor(15);
    write(a[i,j]:3);
   end;
  writeln;
 end;
textcolor(15);
write('Сумма элементов в заштрихованной области=',s);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.04.2015, 21:22
Привет! Вот еще темы с решениями:

Найдите сумму элементов матрицы в заштрихованной области
найдите сумму элементов матрицы в заштрихованной области... решить с помощью...

Найдите сумму элементов из заштрихованной области массива...
Найдите сумму элементов из заштрихованной области массива размерностью N на N....

Найти сумму в заштрихованной области матрицы
Добрый вечер,помогите пожалуйста с одной задачкой: Дана квадратная...

Найти сумму элементов, расположенных в заштрихованной части
Дана действительная квадратная матрица порядка n. Найти сумму элементов,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru