Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Упорядочить все слова по убыванию https://www.cyberforum.ru/ turbo-pascal/ thread798424.html
2) Упорядочить все слова по убыванию(тоесть по кол-ву букв в слове) поможете?
Описать, используя структуру записи, информацию о подписчиках на газеты и журналы Turbo Pascal
3)Описать, используя структуру записи, информацию о подписчиках на газеты и журналы: Фамилия с инициалами, адрес, 5 строк с названиями изданий. Составить программу, осуществляющую ввод данных о...
Дан массив А[6,6],сформировать массив B(6) на заданных основаниях Turbo Pascal
Дан массив А,сформировать массив B(6) на следующих основаниях: массив B(1) присваивает число элементов равному нулю в основном диоганале массив B(2) присваивает число элементов равному нулю в ...
Turbo Pascal Даны два одномерных массива. Сравнить совпадающие элементы и сформировать массив из максимальных элементов даны два одномерных массива,сравнить совпадающие элементы и сформировать массив с максимальных элементов... https://www.cyberforum.ru/ turbo-pascal/ thread798339.html
Turbo Pascal Определить количество цифр в числе https://www.cyberforum.ru/ turbo-pascal/ thread798242.html
Пользователь вводит натуральное число N. Определить коли-чество цифр в этом числе. Срочно!! Зарание спасибо!
Turbo Pascal Текстовые файлы. Решение квадратного уравнения
всем доброго времени помогите пожалуйста решить задачу. на завтра надо очень... Дано файл в котором каждая строчка содержит 3 числа разделенные пропуском - коэффициенты квадратного уравнения....
Turbo Pascal тест2
71. Если будет выполнена программа, то результат ее выполнения … var с:integer; begin for k:=1 to 5 do begin for j:=1 to 3 do i:=i*j; if k>9 then break; end; ...
Turbo Pascal Найти среднее арифметическое всех чисел до тех пор, пока не встретится первое отрицательное число. Помогите написать программу. Я полный нуб и не могу придумать такой способ, когда бы читался весь ряд чисел, а только потом бы находилось среднее арифметическое из данного ряда. В переменную а... https://www.cyberforum.ru/ turbo-pascal/ thread798180.html
Turbo Pascal Последовательность переменных A,B,C является упорядоченной по возрастанию при выполнении условия: https://www.cyberforum.ru/ turbo-pascal/ thread798172.html
1. Последовательность переменных A,B,C является упорядоченной по возрастанию при выполнении условия: 1. (A<B) AND (NOT(B>=C)) 2. (A<=B) AND (B=C) 3. NOT ((A>B) OR (B>=C)) 4. (A<=B) AND...
Turbo Pascal Ответить на вопросы теста 176. Результат вычисления значения выражения c:=a;a:=b;b:=c;при a=123, b=321 : 1. a=123, b=321 2. a=123, b=123 3. a=321, b=321 4. a=321, b=123 5. a=12, b=32 177 Вычислительный автомат работает... https://www.cyberforum.ru/ turbo-pascal/ thread798148.html
0 / 0 / 1
Регистрация: 02.03.2013
Сообщений: 8
02.03.2013, 03:51  [ТС] 0

Найти сумму элементов в закрашенной области

02.03.2013, 03:51. Показов 1036. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено gembird как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const
  k=20;
var
  a: array[1..k,1..k] of integer;
  n,i,j,sum: integer;
begin
  write('n: ');
  readln(n);
  for i:=1 to n do
  begin
  for j:=1 to n do
    begin
      a[i,j]:=random(6);
      write(a[i,j]:2);
    end;
    writeln;
  end;
  writeln;
  sum:=0;
  for i:=1 to n do
  for j:=1 to n do
 
 <<..???..>>


Вернуться к обсуждению:
Найти сумму элементов в закрашенной области
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.03.2013, 03:51
Готовые ответы и решения:

Найти сумму элементов в закрашенной области
Все входящие заполняются случайными числами из диапазона [0,100) Задана матрица целых чисел...

Найти минимальний элемент в закрашенной области
Задана матрица целых чисел розмером N на N. Найти минимальний элемент в закрашенной...

Найти сумму элементов области
Дан массив 5*5. Надо найти сумму всех элементов 3ей строки и 3его столбца.

Найти сумму элементов из области матрицы А
var A : array of real; Найти сумму элементов из области матрицы А, отмеченной символом '*'...

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