Найти и напечатать номера столбцов матрицы, сумма элементов которых попадает в заданный интервал - PascalABC.NET

  1. в целочисленной матрице найти и напечатать номера столбцов сумма элементов которых попадает в заданный отрезок [a,b]


textual

Код к задаче: «Найти и напечатать номера столбцов матрицы, сумма элементов которых попадает в заданный интервал - PascalABC.NET»

Var h,w:integer;
    i,j:integer;    
    min,max:integer;  
    s:integer;    
    a:array [1..100,1..100] of integer;
    
Begin
 
 writeln('Введите высоту и ширину матрицы: ');
 readln(h,w);
 
 writeln('Введите [a,b]: ');
 readln(min,max);
 
 //Заполнение 
 For i:=1 to h do
  For j:=1 to w do
   a[i,j]:=Random(10);
 
 write('Номера столбцов: ');
 
 For i:=1 to w do
  begin
   s:=0;
   For j:=1 to h do s:=s+a[j,i];
   if (s>=min) and (s<=max) then write(i,', ');
  end;
 
 For i:=1 to h do
  begin
   writeln;
   For j:=1 to w do
   write(a[i,j]:2);
  end; 
 
End.

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

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



Похожие ответы
  1. необходимо, чтобы программа выводила три НЕПОВТОРЯЮЩИХСЯ элемента массива и их номера Что нужно поправить?

  1. Имеется текстовый файл. Напечатать первые 10 символов файла.

  1. 4)Заполнить массив из 10 элементов случайными числами в интервале [0..4] и вывести номера всех элементов, равных X. Если кому интересно, вот рабочая, программа домашнего производства. Задания брал из презентации по основам массивов Паскаль( на сайте Полякова можно найти)

  1. 2.Напечатать в обратном порядке все элементы вещественного массива до элемента, номер которого равен значению среднего арифметического MIN и MAX массива. Найдите индекс максимального элемента и вывести все числа от еденицы до этого индекса.

  1. создать массив из 20 случайных чисел лежащих в промежутке от -10 до 10 и вывести на экран номера всех отрицательных элементов

  1. Доброго времени суток. Помогите разобраться с задачей. Задана последовательность символьных матриц. Напечатать те их них, в которых под главной диагональю нет заданного пользователем символа.

  1. Дано натуральное число n. Напечатать все пары дружественных чисел, не превосходящих n (два натуральных числа называются дружественными, если каждое из них равно сумме делителей другого, исключая сами числа).

  1. Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству: в слове нет повторяющихся букв. Помогите пожалуйста))) код нужен на паскале

  1. Здравствуйте, помогите пожалуйста, для вас задание скорее всего будет очень легким, но я толком не знаком с программированием и не знаю как это сделать Само задание выглядит так: Дана строка символов. Группы символов, разделенные одним или несколькими пробелами и не содержащие пробелов внутри себя, будем называть словами. В каждом слове найти номера первой и последней по порядку запятой и записать в вектор разность между этими номерами.