Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Обьяснение программы в Pascal Ребят тут такое дело нестандартное,вообщем сдавал программу,всё рассказал уже что мог,преподаватель не принимает,так вот может я не всё знаю..помогите разобраться,расскажите всё что сможете,чтобы прямо полностью всё,и ещё,когда в этой программе закончится цикл? Задание:Дано натуральное число.Определить,является ли разность его максимальной и минимальной цифр четным числом. Сама программа: ... https://www.cyberforum.ru/ pascalabc/ thread709614.html Pascal ABC Модификация файлов
Ввести файл F . Каждый элемент, дающий в остатке двойку при делении на 3 увеличить на единицу. Файл вывести до и после преобразования.
Pascal ABC Модификация одномерных массивов https://www.cyberforum.ru/ pascalabc/ thread709603.html
Ввести одномерный массив A из N элементов. Все элементы, стоящие на чётных позициях, с модулем значения больше 10 уменьшить на 3. Массив вывести до и после преобразования.
Pascal ABC Определить сумму квадратов индексов элементов массива, делящихся на три без остатка Ввести одномерный массив A из 14 элементов. Определить сумму квадратов индексов элементов делящихся на три без остатка. https://www.cyberforum.ru/ pascalabc/ thread709602.html
Pascal ABC Составьте программу для нахождения количества столбцов
Двумерные массивы. Составьте программу для нахождения количества столбцов, где все элементы одинаковы; Пока получается что то такое: uses crt; var i,n,m,j,p,count,cap:longint; a:array of real; begin
Pascal ABC Двумерный массив. Найти максимальный по модулю элемент. Переставить строки и столбцы заданным образом. Задана матрица размером NхM. Найти максимальный по мо* дулю элемент матрицы. Переставить строки и столбцы матрицы таким образом, чтобы максимальный по модулю элемент был расположен на пересечении K-й строки и K-го столбца. https://www.cyberforum.ru/ pascalabc/ thread709552.html
Pascal ABC Кодирование методом Хемминга https://www.cyberforum.ru/ pascalabc/ thread709551.html
Дано число информационных разрядов m, и число контролирующих разрядов k. Составить группы разрядов V1,V2,V3,...,Vk. Vi=2^(i-1) Каждое Vi соответствует своему контролирующему разряду. Vi = 2i-1,… и так далее до n. n=k+m
Разложить отрицательные эл.массива в порядке убывания по строкам Pascal ABC
Разложить отрицательные эл.массива в порядке убывания по строкам (методом вставки)
Pascal ABC Заполнить матрицу по образцу Получить квадратную матрицу порядка n: \begin{pmatrix}0 & 0 & 0 & \cdots & 0 & 0\\\\ 0 & 1 & 0 & \cdots & 0 & 0\\\\ 0 & 0 & 2 & \cdots & 0 & 0\\\\ \vdots & \vdots & \vdots & \ddots & \vdots & \vdots\\\\ 0 & 0 & 0 & \cdots & 0 & n-1\end{pmatrix} https://www.cyberforum.ru/ pascalabc/ thread709494.html Pascal ABC Динамическое программирование. Определить оптимальную загрузку самолетов с грузоподъёмностью от G до 1,3G https://www.cyberforum.ru/ pascalabc/ thread709475.html
Помогите решить задачу на динамич. программирование: Самолет имеет максимальную грузоподъемность G(m). Предметы, загружаемые в самолет, имеют различные веса и стоимости: wi(m), Сi (руб.) соответственно. Определить оптимальную загрузку самолетов с грузоподъёмностью от G до 1,3G. Показать, как изменится решение, если j-х предметов нужно погрузить не меньше k. G=20 W1=0,8 C1=12 W2=3,2...
Pascal ABC Найдите пройденный телом путь, зная его скорость и время
Даны скорость и время равномерного движения тела. Найдите пройденный им путь.
Pascal ABC После введенного числа, обозначающего денежную единицу, дописать слово «Рубль» в правильной форме https://www.cyberforum.ru/ pascalabc/ thread709449.html
Составить программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 99), обозначающего денежную единицу, дописывает слово «Рубль» в правильной форме. Например, 5 рублей, 21 рубль и т. д.
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
26.11.2012, 15:04 0

Ввести целочисленный двумерный массив AN×N , вывести его. Определить K – сколько нечётных элементов содержится на диагоналях массива. - Pascal ABC - Ответ 3756996

26.11.2012, 15:04. Показов 2011. Ответов 1
Метки (Все метки)

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

Решение

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
uses crt;
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,imx,jmx:byte;
    k,mx:integer;
begin
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходная матрица:');
k:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
    if((j=i)or(j=n-i+1))and odd(a[i,j]) then k:=k+1;
   end;
  writeln;
 end;
writeln;
writeln('Количество нечетных элементов на диагоналях матрицы=',k);
mx:=a[1,1];
imx:=1;
jmx:=1;
for i:=1 to n-1 do
for j:=1 to n-i do
if a[i,j]>mx then
 begin
  mx:=a[i,j];
  imx:=i;
  jmx:=j;
 end;
writeln('Максимальный элемент над побочной диагональю=',mx,' его координаты=[',imx,',',jmx,']');
writeln('Уменьшение его на ',k);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if(i=imx)and(j=jmx) then a[i,j]:=a[i,j]-k;
    write(a[i,j]:4);
   end;
  writeln;
 end;
end.


Вернуться к обсуждению:
Ввести целочисленный двумерный массив AN×N , вывести его. Определить K – сколько нечётных элементов содержится на диагоналях массива. Pascal ABC
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.11.2012, 15:04
Готовые ответы и решения:

Ввести двумерный массив A(N×N) , вывести его. Найти сумму положительных элементов расположенных в части массива одновременно
Ввести двумерный массив A(N×N) , вывести его. Найти сумму положительных элементов расположенных в...

Ввести целочисленный одномерный массив A, вывести его. Найти K– количество нечётных элементов в этом массиве
Добрый вечер. Помогите решить задачу,с обычным одномерным массивом справился,а со сложным не могу....

Ввести целочисленный двумерный массив A(NxM), вывести его. Найти сумму положительных угловых элементов
Помогите пожалуйста с задачей: Ввести целочисленный двумерный массив A(NxM), вывести его. Найти...

Ввести двумерный массив ANxM, вывести его. Определить в какой строке больше положительных элементов
Добрый вечер. Помогите с задачей пожалуйста Ввести двумерный массив ANxM, вывести его....

1
26.11.2012, 15:04
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.11.2012, 15:04
Помогаю со студенческими работами здесь

Создайте двумерный целочисленный массив А[1..10, 1..7] и найдите сумму всех его элементов, имеющих оба нечетных индекса
Создайте двумерный целочисленный массив А и найдите сумму всех его элементов, имеющих оба нечетных...

Ввести двумерный массив A3 5× . Определить в нём произведение остатков от деления на 4 тех элементов, которые
Нужен код программы и желательно блок-схему

Ввести двумерный массив A 5×3 . Найти суммы индексов строк и столбцов четных элементов массива
помогите пожалуйста с задачей Ввести двумерный массив A 5×3 . Найти суммы индексов ...

Ввести двумерный массив A3×4 . Определить в нём количество тех элементов, которые при делении на 3 дают остаток 2
Ввести двумерный массив A3×4 . Определить в нём количество тех элементов, которые при делении на...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru