Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Написать программу, которая запрашивает у пользователя название товара и выводит его цену https://www.cyberforum.ru/ pascalabc/ thread804171.html
Написать программу, которая запрашивает у пользователя название товара и выводит его цену (не менее 5 товаров). Если пользователь указывает недопустимое число, то выводится сообщение «Ошибка ввода данных» 		Pascal ABC Реализовать вращение изображения
сделайте что бы он крутился
Pascal ABC Как считать типизированный файл данные которого находятся в текстовом Данные для типизированного файла находятся в текстовом файле. Как вывести на экран типизированный файл с этими данными? вот такая у меня процедура: type TZ=record reg:string; tip:string; nazv:string; mosch:string; end; s=file of TZ; https://www.cyberforum.ru/ pascalabc/ thread803772.html Pascal ABC Преобразовать матрицу: поэлементно вычесть последнюю строку из всех строк, кроме последней https://www.cyberforum.ru/ pascalabc/ thread803763.html
Помогите пожалуйста! Дана вещественная матрица А(м,н) . Требуется преобразовать матрицу: поэлементно вычесть последнюю строку из всех строк, кроме последней.
Найти в массиве количество отрицательных и положительных элементов Pascal ABC
дан массив Х (V). найти в массиве количество отрицательных и положительных элементов.если больше отрицательных,то поменять порядок массива 		Pascal ABC Найти сумму простых чисел, входящих в массив (Блок-схема и программа) https://www.cyberforum.ru/ pascalabc/ thread803481.html
Дана вот такая задачка: Массив целых чисел С состоит из N элементов, найти сумму простых чисел, входящих в него. Так же дана часть блок-схемы, по которой и нужно написать прогу: http://s020.***********/i717/1303/f5/72b7ead6d3f2.png Вопрос: Как записать 3е и 4е действия? "Pr=истина" и цикл - "J=2, c div 2"
Pascal ABC Наименьший член последовательности заменить средним арифметическим всех членов https://www.cyberforum.ru/ pascalabc/ thread803459.html
1. Даны целые числа. Наименьший член последовательности заменить средним арифметическим всех членов (если в последовательности несколько членов со значением минимума, то заменить каждый из них). 2.В данной действительной матрицы размера 6*9 поменять местами строку, содержащую элемент с наибольшим значением, со строкой, содержащий элемент с наименьшим значением. Предполагается, что эти элементы... 		неправильное задание массива Pascal ABC
program zadacha2; const M=15;N=5;K=5; Re=1; label S; type Marray = array of real; Narray = array of real; var
Pascal ABC Определить количество информации в битах https://www.cyberforum.ru/ pascalabc/ thread803407.html
Вот мои попытки,только что-то тут не правильно...не знаю что! Задано кол-во информации в бит.Сколько Килобайт,байт и бит в этой информации.Бит - 8194. Program Inform; Var bit ,kilobit ,bait:Integer; Begin Writeln (' введите объём информации в битах'); Writeln ( bit ); kilobit:=bit div 8192; 		Pascal ABC Посчитать количество слов в тексте и длину слов В программу должен вводиться текст. Нужно: Посчитать кол-во слов в тексте и длину слов и вывести на экран таблицу Длина слова _________________________________________________________ Количество таких слов _________________________________________________________ Добавлено через 20 минут очень надо. Прошу вас https://www.cyberforum.ru/ pascalabc/ thread803396.html
Определить сумму цифр числа Pascal ABC
Знаю,что задачка простецкая,но тем не менее решить не могу:( :cry: С клавиатуры ввести произвольное трёхзначное число .Определить сумму его цифр. С клавиатуры вводится трёхзначное число (100 < N <999). Выходные данные Сумма его цифр Пример входных данных: 254 Пример выхода данных: 		Pascal ABC Задача на палиндромы https://www.cyberforum.ru/ pascalabc/ thread803375.html
Дана строка, состоящая из слов. Напечатать те слова, которые являются полиндромами.
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
10.03.2013, 09:21 0

Найти максимальный элемент, расположенный выше главной диагонали - Pascal ABC - Ответ 4232540

10.03.2013, 09:21. Показов 3482. Ответов 2
Метки (Все метки)

Ответ

Немного причешем
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

uses crt;
const n = 5;
var a : array[1..n, 1..n] of integer;
    i, j : byte;
    max : integer;
begin
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j] := random(50);
    write(a[i,j]:3,' ');
    if(i=1)and(j=2)then max:=a[i,j]
    else if(j>i)and(a[i,j]>max) then max:=a[i,j]
   end;
  writeln
 end;
writeln('Максимальный элемент выше гл. диагонали=',max)
end.


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

Найти максимальный элемент, расположенный выше побочной диагонали матрицы
В матрице (5,5) найти максимальный элемент, расположенный выше побочной диагонали, вывести его на...

Найти максимальный элемент матрицы, расположенный выше побочной диагонали
В матрице A , где 'n' &lt;= 100 найти максимальный элемент, расположенный выше побочной диагонали и...

Поменять местами максимальный элемент выше главной диагонали и минимальный элемент ниже главной диагонали
Определить максимальный элемент среди элементов квадратной матрицы размера 5x5, лежащих выше...

Найти максимальный элемент среди элементов матрицы, лежащих выше главной диагонали
Доброго времени суток, помогите написать парочку программ: 1)Задана матрица A(NxN). Определить,...

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

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

Найти максимальный элемент, расположенный ниже побочной диагонали
Пожалуйста, помогите решить задачу!!! Дана матрица размером 5*5. Найти максимальный элемент,...

Если максимальный элемент квадратной матрицы находится выше главной диагонали, транспонировать ее
задача легкая,но я встретил трудности со знанием синтаксиса паскаля,а вот собственно и задача Если...

Найти максимальный элемент выше побочной диагонали матрицы
Что не так, не выводит данные. Program n1; Var a:arrayof integer; ...

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