Найти сумму не положительных элементов двумерного массива A [N, M ] c четными номерами столбцов - Pascal ABC

  1. Как найти в паскале сумму не положительных элементов двумерного массива A [N, M ] c четным номером столбцов заполненного вещественными числами из отрезка [-50;50]


textual

Код к задаче: «Найти сумму не положительных элементов двумерного массива A [N, M ] c четными номерами столбцов - Pascal ABC»

program ex;
const n = 3;
      m = 3;
var a:array[1..n,1..m]of real;
i,j:integer;
sum:real;
 
begin
randomize();
for i:=1 to n do 
  for j:=1 to m do
  begin
  a[i,j]:=random(101)-50;
  if (a[i,j] < 0) and (j mod 2 = 0) then
  sum := sum + a[i,j];
  end;
  
for i:=1 to n do 
  begin
    for j:=1 to m do
    write(a[i,j]:3);
  writeln();
  end;
 
writeln('Сумма не положительных элементов в четных столбцах = ', sum);
end.

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

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



Похожие ответы
  1. Заполнить числами, начиная с единицы, квадратный массив из NxN элементов «змейкой». Пример, для массива 4х4: Код 1 2 3 4 8 7 6 5 9 10 11 12 16 15 14 13 Реализовать ввод размерности с клавиатуры

  1. Создать одномерный числовой массив из 6 элементов и вывести результат на экран. Затем элементы, стоящие на нечетных местах уменьшить на 2, подсчитать сумму этих элементов и вывести эти значения на экран с пояснениями.

  1. Найти сумму целых положительных чисел из промежутка от А до B, кратных 4.(значения А и В вводятся с клавиатуры)

  1. Добрый вечер! Помогите, пожалуйста! Даны три целочисленных массива длиной n, m, l (заполняются случайными целыми числами). Если количество четных элементов больше, то отсортировать его по возрастанию, иначе по убыванию Обязательно сделать через процедуры Заранее благодарю

  1. 34. Найти сумму положительных целых чисел, меньших 100

  1. Найти минимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы.

  1. Введите массив из 5 элементов с клавиатуры и найдите количество элементов , запись которых в 2с.с-палиндром(например,10101 в двоичной=21)

  1. Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Результат вывести в виде: A[1]=........ A[2]=......... A[3]=......... Большое спасибо, за помощь!

  1. Помогите написать программу Создать вектор М, содержащий количество отрицательных элементов каждого столбца матрицы z(3,4).

  1. Дан прямоугольный массив целых положительных чисел. Отыскать в массиве строку с наименьшей суммой элементов. Вывести на печать номер строки и сумму ее элементов. Предполагается, что такая строка единственна.