Определить в каком столбце матрицы сумма элементов меньше - Turbo Pascal

  1. драствуйте!!! Помогите пожалуйста с написанием програмы на турбо паскале!!!! Брат проболел очень долго а в техникуме требуют программы, а я занимался этим последний раз 9 лет назад и ничего не помню!!!! Дан двухмерный массив. Определить в каком столбце массива сумма элементов меньше: во втором или в последнем???


textual

Код к задаче: «Определить в каком столбце матрицы сумма элементов меньше - Turbo Pascal»

const
  n = 5;
  m = 6;
var
  a : array [1..n, 1..m] of integer;
  i, j, s2, sm : integer;
begin
  s2 := 0;
  sm := 0;
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i,j] := random(50) - 25;
      write(a[i,j]:4);
      if j = 2 then s2 := s2 + a[i,j];
      if j = m then sm := sm + a[i,j]
    end;
    writeln
  end;
  writeln('сумма во 2 столбце: ', s2);
  writeln('сумма в ', m, ' столбце: ', sm);
  if s2 < sm then writeln('сумма в 2 столбце меньше') else
    if s2 = sm then writeln('суммы равны') else
      writeln('сумма в ', m, ' столбце меньше');
  readln
end.

СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.091 из 5



Похожие ответы
  1. вывести фамилии, имена и отчества всех студентов мужского пола, старших 18 лет. Должна вводиться информация о студентах(фамилии, имена, отчества, пол, возраст).

  1. Задание собственно такое: Составить программу формирования из вектора A={ai}, i=1/3n вектора B={bi}, i=1/n, очередная компонента которого равна среднему арифметическому очередной тройки компонент вектора. вот сама программа:

  1. Дана матрица 7x7. Определить суммы всех элементов матрицы, лежащих на диагоналях. Помогите сделать, пожалуйста! Заранее спасибо ОГРОМНОЕ!

  1. В массиве A[1..N] найти максимальное число и уменьшить все элементы массива на 5. Вывести полученную последовательность на экран. Помогите пожалуйста!

  1. Пусть дана вещественная матрица размером n*m. Найдите среднее арифметическое наибольшего и наименьшего значений её элементов, расположенных ниже главной диагонали.- это условие. Напиши пожалуйста программу!

  1. Составить программу для вычисления значения функции: y=sh(x) с помощью разложения функции в степенной ряд Помогите пожалуйста решить, пожалуйста!!

  1. Подскажите, наведите на путь, я реально не могу сообразить как она должна работать!! Танк в компьютерной игре может двигаться в одном из четырех направлений, обозначим их числами: 1 — север, 2 — восток, 3 — юг, 4 — запад. Направление движения изменяется тремя командами: 1 — поворот направо, 2 — поворот налево, 3 — поворот кругом. Пользователь вводит начальное направление движения, а затем ряд команд. Программа должна определять и печатать всякий раз новое направление. Выход из цикла — команда 0.

  1. Помогите пожалуйста!!! Срочно, умоляю молю Составить программу для вычисления значения функции :y=sin(x) с помощью разложения функции в степенной ряд

  1. Каждая из трех доярок надоила за год (365 дней) R1, R2,R3 литров молока. Определить, у какой доярки наибольший среднесуточный надой молока и вывести на экран ее номер.

  1. Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d