Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Вывод последовательности стоящих подряд цифр Разработать программу, которая в заданной строке находит и выводит на экран все самую длинную последовательность стоящих подряд цифр. https://www.cyberforum.ru/ turbo-pascal/ thread535056.html	Turbo Pascal Содержит ли строка цифры Разработать программу, которая определяет, содержит ли строка цифры. Если в строке нет цифр, то вставить по середине строки чередующуюся последовательность 0 и 1 длиной вдвое меньше, чем длина строки.
Turbo Pascal Преобразовать массив так: в первой части элементы меньше среднего арифметического, а во второй части – элементы больше Заполнить одномерный массив из N элементов случайными целыми числами. Преобразовать его в массив, в первой части которого будут элементы меньше среднего арифметического, а во второй части – элементы больше среднего арифметического. Первую часть раскрасить синим цветом, вторую – красным https://www.cyberforum.ru/ turbo-pascal/ thread535052.html	Turbo Pascal Вычислить значение функции https://www.cyberforum.ru/ turbo-pascal/ thread535051.html Вычислить значение функции при помощи суммы ряда с точностью E. Сравнить полученное значение суммы с результатом вычисления стандартной функции. http://s59.***********/i164/1203/cf/24d63fef7db1.jpg
Написать функцию для вычисления количества положительных элементов массива Turbo Pascal разработать модуль, содержащий основные функции и процедуры по работе с одномерными массивами а именно процедуру ввода, функцию для вычисления количества положительных элементов,процедуру произведения всех элементов. Написать программу, использующую этот модуль и содержащую меню по реализации всех подпрограмм, содержащихся в модуле.	Turbo Pascal Определить общую сумму баллов, набранных третьим спортсменом. https://www.cyberforum.ru/ turbo-pascal/ thread535033.html Ребята помогите пожалйста с задачей.В двумерном массиве хранится информация о баллах полученных спортсменами пятиборцами в каждом из пяти видов спорта (в первой строке- информация о баллах первого спортсмена, во второй - второго и т.д). Общее число спортсменов равно 20Определить общую сумму баллов, набранных третьим спортсменом.
Turbo Pascal Узнать количество инопланетян и количество землян https://www.cyberforum.ru/ turbo-pascal/ thread535021.html Здравствуйте! Найти: Узнать количество инопланетян и количество землян! Условие: Похитили неизвестное количество человек х. Инопланетян было на 6 больше, чем землян х+6. Количество пальцев на руках у инопланетян и у землян разные.При пересчете всех пальцев на руках у землян и у инопланетян оказалось, общем у всех инопланетян на руках было на 1 палец меньше чем у всех землян так же на...	Turbo Pascal Изобразить узор из цветных квадратов условие на скриншоте
Turbo Pascal Модуль DOS. Вывести на экран размеры всех файлов, находящихся в текущем каталоге https://www.cyberforum.ru/ turbo-pascal/ thread534997.html Вывести на экран размеры всех файлов, находящихся в текущем каталоге, имена которых начинаются на заданную букву.	Turbo Pascal Нарисовать на экране круг зеленого цвета, который движется по горизонтали Нарисовать на экране круг зеленого цвета, который движется по горизонтали, при достижении границы экрана превращается в квадрат и начинает движение в обратном направлении. Программа завершается нажатием любой клавиши. Рисование фигур оформить в виде процедуры. https://www.cyberforum.ru/ turbo-pascal/ thread534996.html
Заполнить типизированный файл целыми числами Turbo Pascal Заполнить типизированный файл целыми числами из интервала . Поменять местами в файле первый отрицательный и первый положительный компонент.	Turbo Pascal Найти и вывести на экран слова, включающие некоторый слог В текстовом файле хранятся слова, каждое слово на отдельной строке. Найти и вывести на экран слова, включающие некоторый слог, введенный пользователем, плюс любые другие буквы. https://www.cyberforum.ru/ turbo-pascal/ thread534994.html

Ev[G]eN

Mobile Software Engineer

5381 / 1585 / 956

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

Сообщений: 3,214

31.03.2012, 19:20

Обработка двумерных числовых массивов. Найти число элементов, кратных k - Turbo Pascal - Ответ 2858379

31.03.2012, 19:20. Показов 1215. Ответов 1

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

Сообщение было отмечено spbkiu как решение

Решение

Pascal

const
  n = 5;
var
  Matr: Array[1..n, 1..n] of Integer;
  Count, Max, Chislo: Integer;
  i, j: Byte;
begin
  Randomize;
  Max:=Matr[1, 1]; Count:=0;
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      Matr[i, j]:=Random(100);
      write(Matr[i, j]:4);
    end;
    writeln;
  end;
  write('Число: ');
  readln(Chislo);
  for i:=1 to n do
    for j:=1 to n do
      if (Matr[i, j] mod Chislo = 0) and (Matr[i, j] > Max) then
      begin
        Max:=Matr[i, j];
        Inc(Count);
      end;
  writeln('Кол-во чисел, кратных ', Chislo, ': ', Count);
  writeln('Максимальное из них: ', Max);
end.

Вернуться к обсуждению:
Обработка двумерных числовых массивов. Найти число элементов, кратных k Turbo Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

31.03.2012, 19:20

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

Обработка двумерных числовых массивов
Заполнить двумерный числовой массив В(5, 5) целыми числами. Столбец, содержащий минимальный...

Найти число элементов массива, кратных 3 и не кратных 5 и число элементов, являющихся квадратами четных чисел
. Дан массив А из n действительных чисел: a1, …, an. Вычислить: а) |a1|+…+|an|б)...

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

Заполнение двумерных массивов, поиск и замена элементов в двумерных массивах
У меня проблема с 2-мя задачами поиогите пожалуйста. 1. Написать программу, которая вводит по...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

31.03.2012, 19:20

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

Обработка числовых массивов
Определить минимальный элемент двухметрного массива и с помощью перестановок строк и столбцов...

Обработка числовых и символьных массивов
помогите, плиз, решить 2 задачки - очень надо( очень срочно. совсем не знаю, что делать(( тема:...

Обработка двумерных массивов
Помогите пожалста составить прогрумму. Условие: Найти произведение нечетных отрицательных...

Обработка двумерных массивов
Здравствуйте, нужна помощь в построении массива. Никак не выходит придумать условие для цикла,...

Наверх