Как найти сумму четных элементов двумерного массива

Как найти сумму четных элементов двумерного массива

Формулировка задачи:

Ребята помогите пожалуйста написать программу на Паскале)
Найти сумму всех четных элементов двумерного массива целых чисел А[10,10].Массив должен вводится во время работы программы.
Заранее Большое Спасибо))

Код к задаче: «Найти сумму всех четных элементов двумерного массива целых чисел А[10,10]»

textual

Листинг программы 

var
   a : array[1..10, 1..10] of integer;
   i,j,sum : integer;
begin
writeln('Введите матрицу построчно');
sum:=0;
   for i:=1 to 10 do                //в цикле с параметром для строк
     for j:=1 to 10 do              //в цикле с параметром для столбцов
     begin
        read(a[i,j]);               //считываю элементы матрицы
        if (a[i,j] mod 2) = 0 then  //если четные
           sum := sum+a[i,j];       //суммарую
     end;
  writeln('Сумма четных элементов=',sum);
end.

Источник
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

const
  n = 5;
var
  Matr: array[1..n, 1..n] of integer;
  SummaCh, SummaNCh, Summa3, Count1, Count2: integer;
  i, j: byte;
begin
  randomize;
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      Matr[i, j]:=random(20);
      write(Matr[i, j]:4);
      if odd(Matr[i, j]) then 
      begin
        inc(SummaNCh, Matr[i, j]);
        inc(Count1);
      end 
      else inc(SummaCh, Matr[i, j]);
      if Matr[i, j] < 50 then inc(Count2);
      if ((i+j) mod 3=0) then inc(Summa3, Matr[i, j]);
    end;
    writeln;
  end;
  writeln('Сумма четных элементов: ', SummaCh);
  writeln('Количество элементов массива, меньших 50: ', Count2);
  writeln('Среднее арифметическое нечетных элементов массива: ', (SummaNCh / Count1):0:2);
  writeln('Сумму тех элементов массива, сумма индексов которых кратна 3: ', Summa3);
end.
Источник



Ученик

(63),
закрыт



13 лет назад

Pavel Klebaner

Ученик

(246)


13 лет назад

int [4,8] arr;
long sum = 0;
//Заполняешь массив числами
for (int i=0;i<4;i++)
for (int j=0; j<8; j++)
if (arr[i,j] %2 ==0)
sum+=arr[i,j]
cout<<“Сумма равна: “<

Источник

Двумерные массивы

Двумерный массив можно представить
себе в виде таблицы, в которой все строки
и столбцы пронумерованы.

Каждый элемент такого массива имеет
два индекса:

Первый индекс – это номер строки;

Второй индекс – номер столбца.

A[1,1]

A[1,2]

A[1,3]

A[1,4]

A[1,5]

A[2,1]

A[2,2]

A[2,3]

A[2,4]

A[2,5]

A[3,1]

A[3,2]

A[3,3]

A[3,4]

A[3,5]

A[4,1]

A[4,2]

A[4,3]

A[4,4]

A[4,5]

Создание двумерного массива

Двумерные массивы создаются путем
ввода данных с клавиатуры, с помощью
случайных чисел и вычислений по формулам.

Для формирования массива используется
два вложенных цикла. Первый цикл
перебирает строки, а второй – столбцы.

Вариант
1

For
i:=1 to n do

for
j:=1 to m do

readln
(a[i , j]);

Вариант
2

For
i:=1 to n do

for
j:=1 to m do

a[i
, j]:=random(100);

Вариант
3

For
i:=1 to n do

for
j:=1 to m do

a[i
, j]:=i*j;

Вывод массива в виде таблицы

For
i:=1
to
n
do

begin

for j:=1 to m do

write
(a[i , j]);

writeln;

end;

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

Введите
количество строк и столбцов

2
2

Введите
массив А

a(1,1)=1

a(1,2)=2

a(2,1)=3

a(2,2)=4

Массив
A

1.0
2.0

3.0
4.0

Массив
B

1.0
3.0

2.0
4.0

Рисунок
1.1 Блок-схема

program
prim_11;

const
row=10;col=10;

type

matr1=array[1..row,1..col]
of real;

matr2=array[1..col,1..row]
of real;

var

i,j,n,m:integer;

a:matr1;
b:matr2;

begin

{ввод
массива
A}

writeln(‘Введите
к-во строк и столбцов’); readln(n,m);

writeln(‘Введите
массив
А’);

for
i:=1 to n do

for
j:=1 to m do

begin

write(‘a(‘,i:1,’,’,j:1,’)=’);

readln(a[i,j]);

end;

{вывод
массива
A}

writeln(‘Массив
A’);

for
i:=1 to n do

begin

for
j:=1 to m do write(a[i,j]:7:1);

writeln;

end;

{формирование
массива В}

for
i:=1 to n do

for
j:=1 to m do

b[j,i]:=a[i,j];

{вывод
массива
B}

writeln(‘Массив
B’);

for
i:=1 to n do

begin

for
j:=1 to m do write(b[i,j]:7:1);

writeln;

end;

readln;

end.

16Практическая часть

Задание 1: Составить блок-схему
алгоритма и программу с использованием
цикла с предусловием или постусловием
для вычисления и вывода на экран таблицы
значений функции. Вывод выполнить в два
столбика: первый столбик – значения
аргумента, второй – значения функции.
При разработке программы следует
учитывать область определения функции
и в случае необходимости организовать
печать сообщения – “функция не определена”.

Таблица 1

Вар-т Функция нач.зн. кон.зн. шаг

____________________________________________________________________________

1.
0.1 1.25 0.1

2.
3 5.5 0.3

3.
0.5 3.75 0.5

4.
-4 4.5 1

5.
0.1 1.25 0.1

6.
0.5 3.75 0.5

7.
3 5.5 0.3

8.
0.2 1.7 0.2

9.
0.3 3.7 0.4

10.
20 115 9

11.
0 2.2 0.4

12.
-9.5 9.5 2.5

13.
0.5 3.75 0.5

14.
-4 -2.5 0.2

15.
-8 8 2.5

Задание 2: Составить программу
с использованием цикла с параметрами.
Предусмотреть задание исходных данных
при помощи оператора ввода.

  1. Написать
    программу, которая 10 раз выводит на
    экран имя и фамилию.

  2. Написать
    программу, которая выводит таблицу
    квадратов первых десяти целых
    положительных чисел.

  3. Написать
    программу, которая выводит таблицу
    квадратов первых пяти целых положительных
    нечетных чисел.

  4. Написать
    программу, которая вычисляет сумму
    первых n целых положительных
    целых чисел. Количество суммируемых
    чисел должно вводиться во время работы
    программы.

  5. Написать
    программу, которая вычисляет сумму
    первых n целых положительных
    четных чисел. Количество суммируемых
    чисел должно вводиться во время работы
    программы.

  6. Написать
    программу, которая вычисляет сумму
    первых п членов ряда 1, 3, 5, 7, …. Количество
    суммируемых членов ряда задается во
    время работы программы.

  7. Написать
    программу, которая вычисляет сумму
    первых n членов ряда 

Количество суммируемых членов ряда задается во время работы программы.

  1. Написать
    программу, которая выводит таблицу
    степеней двойки (от нулевой до десятой).

  2. Написать
    программу, которая вычисляет факториал
    введенного с клавиатуры числа.
    (Факториалом числа n
    называется произведение целых чисел
    от 1 до n. Например, факториал
    1 равен 1, 8 — 40320).

  3. Написать программу, которая выводит
    таблицу значений функции у = -2,4х2+5х-3
    в диапазоне от -2 до 2 с шагом 0,5.

  4. Написать программу, которая вводит с
    клавиатуры 5 дробных чисел и вычисляет
    их среднее арифметическое.

  5. Написать
    программу, которая вычисляет среднее
    арифметическое вводимой с клавиатуры
    последовательности дробных чисел.
    Количество чисел должно задаваться во
    время работы программы.

  6. Написать
    программу, которая вводит с клавиатуры
    последовательность из пяти дробных
    чисел и после ввода каждого числа
    выводит среднее арифметическое
    полученной части последовательности.

  7. Написать
    программу, которая вычисляет среднее
    арифметическое последовательности
    дробных чисел, вводимых с клавиатуры.
    После того, как будет введено последнее
    число, программа должна вывести
    минимальное и максимальное число
    последовательности. Количество чисел
    должно задаваться во время работы
    программы.

  8. Написать
    программу, которая генерирует 10 случайных
    чисел в диапазоне от 1 до 10, выводит эти
    числа на экран и вычисляет их среднее
    арифметическое.

Задание 3

  1. Дан одномерный массив. Найдите разность
    наибольшего и наименьшего чисел в этом
    массиве.

  2. Даны два одномерных массива А и В.
    Подсчитайте количество тех i, для
    которых:

а) А[i] < B[i];

б) A[i] = B[i];

в) A[i] > B[i].

  1. Составьте программу определения
    количества элементов массива, больших
    среднего арифметического всех его
    элементов.

  2. Дан одномерный массив. Подсчитайте,
    сколько раз встречается в этой таблице
    максимальное по величине число.

  3. Дан одномерный целочисленный массив.
    Составьте программу определения
    значения наибольшего элемента этого
    массива.

  4. Дан одномерный целочисленный массив.
    Составьте программу определения
    индекса(-ов) минимального элемента
    массива.

  5. Составьте программу, проверяющую
    упорядочены ли элементы одномерного
    массива по возрастанию.

  6. Дан одномерный массив чисел. Определите
    сумму его элементов.

  7. Дан одномерный массив чисел. Измените
    знаки всех его элементов на противоположные.

  8. Дан одномерный массив чисел. Подсчитайте,
    сколько раз в нем встречается число 1.

  9. Дан одномерный массив чисел. Подсчитать
    в нем количество элементов равных нулю,
    отрицательных элементов и положительных
    элементов.

  10. В массиве А (m,n) найдите количество всех
    чисел, по модулю меньших заданного Т.

Задание 4

  1. Удалить первый отрицательный элемент,
    если таковой имеется.

  2. Удалить все отрицательные элементы.

  3. Удалить все элементы, больше данного
    числа А (А вводить с клавиатуры).

  4. Удалить все четные элементы, стоящие
    на нечетных местах.

  5. Удалить все повторяющиеся элементы,
    оставив только их первые вхождения, то
    есть получить массив различных элементов.

  6. Удалить последний четный элемент.

  7. Удалить все элементы, меньше данного
    числа А (А вводить с клавиатуры).

  8. Удалить все элементы, кратные 3.

  9. Удалить все элементы, начиная с k1-го по
    k2-ой. Сделать проверку корректности
    ввода значений k1 и k2, если ввод
    некорректный, то вывести сообщение об
    ошибке и закончить работу.

  10. Удалить все положительные элементы.

Задание 5

  1. Вставить элемент после первого
    отрицательного элемента.

  2. Вставить элемент перед отрицательным
    последним элементом.

  3. Вставить два элемента: первый – после
    максимального элемента, второй – перед
    максимальным элементом.

  4. Вставить по одному элементу перед всеми
    элементами, кратными заданному числу.

  5. Вставить по одному элементу перед всеми
    отрицательными элементами.

  6. Вставить два элемента: первый – после
    всех элементов, больших данного числа
    Р, а второй – перед всеми элементами,
    большими данного числа Р (Р вводить с
    клавиатуры).

  7. Вставить число А перед всеми элементами,
    большими А, а число В – после всех
    элементов, меньших его.

Задание 6

  1. Дан одномерный массив чисел а. Cформируйте
    такой массив b, который содержит копию
    положительных элементов массива а.

  2. Скопируйте отрицательные и положительные
    кратные заданному числу элементы
    массива А в массив В в обратном порядке.

  3. Из двух упорядоченных одномерных
    массивов (длины K и N) сформируйте
    одномерный массив размером K+N,
    упорядоченный так же, как исходные
    массивы.

  4. Из двух упорядоченных одномерных
    массивов (длины K и N) сформируйте
    одномерный массив размером K+N,
    упорядоченный в обратную сторону.

  5. Дан упорядоченный целочисленный массив.
    Сформировать второй массив всех таких
    различных значений, которые в первом
    массиве встречаются по два и более
    раза.

  6. Дан упорядоченный целочисленный массив.
    Сформировать второй массив всех таких
    различных чисел, которые ни разу в
    первом массиве не встречаются и имеют
    величину больше минимального и меньше
    максимального из чисел первого массива.

  7. Сформировать массив:

Y[1]=A[1]+A[n]

Y[2]= A[2]+A[n-1]

Y[3]= A[3]+A[n-2]

и т.д. (n – четное)

  1. Даны два одномерных массива А и В.
    Подсчитайте количество тех i, для
    которых:

а) А[i] < B[i]

б) A[i] = B[i];

в) A[i] > B[i]

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

  2. Определить величину максимальной
    разности между соответствующими
    элементами двух массивов и записать
    на то же место в третий массив той же
    размерности.

  3. Даны два одномерных массива одинаковой
    длины. Получить третий массив такой же
    размерности, каждый элемент которого
    равен сумме соответствующих элементов
    данных массивов, умноженной на больший
    из них.

Задание 7: Составить программу
для выполнения заданных действий над
двумерным массивом вещественных чисел
A(N,M).
В программе предусмотреть ввод значений
его элементов, вывод исходной и, при
необходимости, преобразованной матриц.

1. Вычислить и запомнить сумму и число
положительных элементов каждого столбца
матрицы. Результаты отпечатать в виде
двух строк.

2. Вычислить и запомнить сумму и число
отрицательных элементов каждой строки
матрицы. Результаты отпечатать в виде
двух столбцов.

3. Вычислить сумму и число элементов
матрицы, находящихся под главной
диагональю и на ней.

4. Вычислить сумму и число элементов
матрицы, находящихся над главной
диагональю и на ней.

5. Записать на место отрицательных
элементов матрицы нули, а на место
положительных элементов матрицы —
единицы.

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

7. Найти наибольший и наименьший элементы
матрицы и поменять их местами

8. Найти строку с наибольшей и наименьшей
суммой элементов. Вывести на печать
найденные строки и суммы их элементов.

9. Найти столбец с наибольшей и наименьшей
суммой элементов. Вывести на печать
найденные столбцы и суммы их элементов.

10. Каждый элемент строки разделить на
предварительно рассчитанную сумму
элементов этой строки.

11. Удалить последнюю строку матрицы и
вывести ее на печать.

12. Удалить последний столбец матрицы и
вывести ее на печать.

13. Найти максимальный элемент на главной
диагонали матрицы.

14. Найти максимальный по модулю элемент
матрицы и вычислить сумму столбца, в
котором он находится.

15. Найти минимальный по модулю элемент
матрицы и вычислить сумму строки, в
которой он находится.

Задание 8:

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

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

3.Найти номер строки и столбца максимального
элемента.

4.Имеется двумерный массив целых чисел.
Найти номер строки, для которой
среднеарифметическое значение ее
элементов максимально.

5.В двумерном массиве целых чисел поменять
местами строки и столбцы с одинаковыми
номерами.

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

7.Удалить столбец двумерного массива
целых чисел, в котором находится
максимальный элемент этого массива.

8.Найти все неповторяющиеся элементы
двумерного массива целых чисел.

9.Заполнить двумерный массив целыми
числами от 1 до 100 по спирали.

10.В двумерном массиве целых чисел
заменить все элементы, меньшие суммы
элементов первой строки на эту сумму.

11.Отсортировать строки массива целых
чисел по убыванию.

12.Отсортировать нечетные столбцы массива
по возрастанию.

13. Ввести вещественную матрицу размерности
n * m построчно, а вывести по столбцам.

14. Выяснить сколько положительных
элементов содержит матрица размерности
n * m, если aij = sin(i+j/2).

15. Дана квадратная вещественная матрица
размерности n. Является ли матрица
симметричной относительно главной
диагонали.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

  • #
  • #
  • #
  • #
  • #
  • #
  • #
  • #
  • #
  • #
  • #
Источник

Все категории

  • Фотография и видеосъемка
  • Знания
  • Другое
  • Гороскопы, магия, гадания
  • Общество и политика
  • Образование
  • Путешествия и туризм
  • Искусство и культура
  • Города и страны
  • Строительство и ремонт
  • Работа и карьера
  • Спорт
  • Стиль и красота
  • Юридическая консультация
  • Компьютеры и интернет
  • Товары и услуги
  • Темы для взрослых
  • Семья и дом
  • Животные и растения
  • Еда и кулинария
  • Здоровье и медицина
  • Авто и мото
  • Бизнес и финансы
  • Философия, непознанное
  • Досуг и развлечения
  • Знакомства, любовь, отношения
  • Наука и техника


8

1 ответ:



0



0

Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace СиШарп
{
    class Program
    {
        static void Main(string[] args)
        {
            Console.Write(“m = “);
            int m = int.Parse(Console.ReadLine());
            Console.Write(“n = “);
            int n = int.Parse(Console.ReadLine());
            Console.WriteLine(“A({0},{1}):”,m,n);
            int[,] A = new int[m,n];
            Random rand = new Random();
            double S = 0;
            for(int i = 0; i < m; i++)
            {
                for(int j = 0; j < n; j++)
                {
                    A[i, j] = rand.Next(-10, 10);
                    Console.Write(“{0,3} “,A[i,j]);
                    if (A[i, j] % 2 == 0) S += A[i, j];
                }
                Console.WriteLine();
            }
            Console.WriteLine(“S = {0}”,S);
            Console.ReadKey();
        }
    }
}

Читайте также

c++ / gcc 7.3.0

#include <iostream>

#include <algorithm>

#include <vector>

int main()

{

   unsigned short int N;

   unsigned int result = 0;

   std::cin >> N;

   std::vector<unsigned short int> arr;

   while(true)

   {

       unsigned short int tmp;

       std::cin >> tmp;

       if(tmp != 0)

           arr.push_back(tmp);

       break;

   }

   std::for_each(arr.cbegin(), arr.cend(), [&result](auto& var)

   {

       if(var > 99 && var < 1000 && (var % 4 == 0))

           result += var;

   });

   std::cout << result << std::endl;

   return 0;

}

Скажи а картинки к заданию нет 
ето может бить если она нашла или взяла ещо одно яблоко

1 – в) caa
2 – в) в столбик
3 – <span>в) char
4 – </span>в) пояснительный текст не нужен
5 – в) символ заключается в апострофы

1)
Var s1: string;
i,a:integer;
Begin
Writeln (‘введите текст’);
Readln (s1);
for i:=1 to length(s1) do
if (s1[i]=’а’)or(s1[i]=’a’) then a:=a+1;
writeln(‘количество букв а в тексте: ‘,a);
End.

2)
Var s1,s2: string;
Begin
Writeln (‘введите первую строку’);
Readln (s1);
Writeln (‘введите вторую строку’);
Readln (s2);
if length(s1)=length(s2) then writeln(‘длины строк совпадают’)
else writeln(‘длины строк не совпадают’)
End.

Шифр_не_годдается_аназизу

<span>- средства для передачи информации</span>

Источник

Добавить комментарий