Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Дана строка символов, состоящая из двух предложений. Поменять предложения местами. https://www.cyberforum.ru/ pascal/ thread90665.html Помогите пожалуйста решить: 1)Составить процедуру, которая находит все простые числа, меньшие заданного числа N методом "Решето Эратосфена". Суть метода в следующем. Выписываются все числа от 2 до N. Первое простое число 2. Первое оставшееся простое число 3. Вычеркиваются все числа, кратные 3, и т.д. В результате в последовательности остаются только простые числа. 2)Дана строка символов,...	Создать два одномерных массива А и В различной длинны. Pascal Создать два одномерных массива А и В различной длинны. Определить MAX и MIN значение с помощью одной функции. Рассортировать по убыванию числа от начала массива до первого экстремума, от первого до второго, от второго до конца массива. После каждой сортировки результаты выводить. примерно должно выглядеть так: ток я незнаю как её доделать:) USES CRT; const...
Pascal Дана целочисленная квадратная матрица.Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали.. .. https://www.cyberforum.ru/ pascal/ thread90652.html	Pascal Работа с записями https://www.cyberforum.ru/ pascal/ thread90643.html Дана задача: Опишите, используя структуру записи, информацию о жильцах дома (номер квартиры, фамилия, имя, род занятий – учеба, работа, пенсия). Программа должна обеспечить ввод данных, поиск квартиры с максимальным числом жильцов. Как искать квартиру с максимальным количеством жильцов? Идей совсем нет =___= Пробовала подогнать под данную задачу вот эту программу (находит наиболее часто...
Рекурсия: подсчет количества цифр в заданном натуральном числе Pascal 12Подсчитать количество цифр в заданном натуральном числе. Составить рекуррентную функцию.	Pascal Напечатать календарь заданного месяца 2010 года Помогите, пожалуйста, решить задачи. Все условия во вложенном файле. Заранее благодарна. https://www.cyberforum.ru/ pascal/ thread90628.html
Pascal Есть ли в данном массиве строка состоящая только из элементов принадлежащим промежутку от а до b определить есть ли в данном массиве строка состоящая только из элементов принадлежащим промежутку от а до b (а, b вводится с клавиатуры) https://www.cyberforum.ru/ pascal/ thread90626.html	Pascal Объявить запись, задающую ромб. Составить программу с процедурой ввода даных ромба для вычисления периметра и площади. Объявить запись, задающую ромб. Составить программу с процедурой ввода даных ромба для вычисления периметра и площади. решите пожайлуста!!!
Pascal Дан текст какой-либо из строчных латинских букв,за которыми следует точка.Напечатать все буквы,входящие в текст не менее двух раз. https://www.cyberforum.ru/ pascal/ thread90621.html ...	Pascal Определть сумму трех наибольших чисел в последовательности из N чисел. https://www.cyberforum.ru/ pascal/ thread90619.html Напишите программу, которая определяет сумму трех наибольших чисел в последовательности из N чисел.
Pascal Конус Объявить запись, задающую конус. Составить программу с процедурой ввода данных конуса для вычисления площади поверхности и объема. ПОМОЖИТЕ ПОДЖАЛУСТА!!!	Pascal Создание и просмотр типизированного файла https://www.cyberforum.ru/ pascal/ thread90611.html Составить физический файл с расширением *.txt со структурированными данными. Создать программу с файловой переменной типизированного типа, которая считает информацию с созданного файла и вывести данные на дисплей.Заранее спасибо.

andrei63

141 / 135 / 69

Регистрация: 15.12.2009

Сообщений: 343

29.01.2010, 00:37

Произведение всех отрицательных елементов главной диагонали - Pascal - Ответ 511393

29.01.2010, 00:37. Показов 552. Ответов 2

Метки (Все метки)

Ответ

Delphi

uses
  crt;
var
  max,sum:real;
  d:char;
  i,j,n,c:integer;
  a:array[1..9,1..9] of real;
  b:array[1..36] of integer;
begin
  clrscr;
  max:=-1;sum:=0;
  writeln('vvodite massiv (0-9)');
  writeln;
  for i:=1 to 9 do
    for j:=1 to 9 do
      begin
        d:=readkey;
        val(d,n,c);
        (a[i,j]):=n;
        write(a[i,j]:1:0);
        if (j mod 9=0) then writeln;
        if (j<i) and (a[i,j]>max) then max:=a[i,j]
      end;
  writeln;
  writeln('max=',max:1:0);
  for i:=1 to 9 do
    for j:= 1 to 9 do
      if (j>=i)and(a[i,j]>max) then sum:=sum+a[i,j];
  if sum>0 then writeln('summa =',sum:3:0)
    else writeln('takih chisel net');
  readkey;
end.

подобная первой на паскале

Вернуться к обсуждению:
Произведение всех отрицательных елементов главной диагонали Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

29.01.2010, 00:37

Готовые ответы и решения:

Определить произведение сумм индексов двух максимальных елементов не главной диагонали
в двух мерном массиве определить произведение суммы индексов двух максимальных елементов не главной...

Найти среднее арифметическое всех отрицательных элементов главной диагонали матрицы AB {m, m}
Найти среднее арифметическое всех отрицательных элементов главной диагонали матрицы AB {m, m}

Найти произведение главной диагонали и суммы побочной диагонали матрицы
Дана матрица действительных чисел M(n,m). Найти произведение главной диагонали и суммы побочной...

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

	29.01.2010, 00:37

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

29.01.2010, 00:37

Помогаю со студенческими работами здесь

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

Скалярное произведение главной диагонали матрицы
Данная квардатнаяматрица а размерностью m. Компонентами вектора X взять скалярное произведение...

Посчитать количество отрицательных элементов главной диагонали матрицы
Составить схему алгоритма и написать программу. Дан массив О = }, i=1,10; j=1,10 ] (элементы...

Найти произведение элементов главной диагонали матрицы.
Задача.Необходимо найти произведение элементов матрицы главной диагонали.

Наверх