Сумма элементов двумерного массива

@mexx1994 · Регистрация: 11.04.2010

Author24 — интернет-сервис помощи студентам

Помогите решить 2 задачки :

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

2.)Известны результаты конкурса ,в котором принимало участие N человек и было m этапов .За каждый этап участники получили баллы .Найти сумму баллов каждого участника и выполнить сортировку массива по убыванию...

Заранее спасибо

@_LoneR_ · 19.02.2011, 18:48

1)

Pascal

const r=4;
var a:array[1..r,1..r]of integer; sum:integer;
i,j:byte; x:integer;
begin
randomize;
for i:=1 to r do begin
for j:=1 to r do begin
a[i][j]:=random(42)+1;
write(a[i,j]:4);
end;
writeln;
end;
sum:=0;
for i:=1 to r do
for j:=1 to r do begin
  if a[i,j]mod 2=0 then
  sum:=sum+a[i,j];
end;
Writeln(sum);
readln;
end.

@Daemon025 · 19.02.2011, 18:49

Pascal

1
2
3

for i:=1 to n do
for j:=1 to n do
if (A[i][j] mod 2 = 0) then suma:=suma+A[i][j];

@Ev[G]eN · 19.02.2011, 18:52

Pascal

const
 n=10;
 m=10;
var
 arr: array[1..n, 1..m] of integer;
 i, j, summ: integer;
begin
 randomize;
 summ:=0;
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      arr[i, j]:=random(20);
      writeln(arr[i, j], ' ');
       if (arr[i, j]mod 2)=0 then
        begin
         summ:=summ+arr[i, j];
        end;
     end;
  end;
 write(summ);
end.

@_LoneR_ · 19.02.2011, 18:56

Сообщение от Ev[G

eN;1382699]const
n=10;
m=10;
var
arr: array[1..n, 1..m] of integer;
i, j, summ: integer;
begin
randomize;
summ:=0;
for i:=1 to n do
begin
for j:=1 to m do
begin
arr[i, j]:=random(20);
writeln(arr[i, j], ' ');
if (arr[i, j]mod 2)=0 then
begin
summ:=summ+arr[i, j];
end;
end;
end;
write(summ);
end.

Вы видели как у вас массив вводиться? Там всё в столбик!

@mexx1994 · 19.02.2011, 18:59 **[ТС]**

спасибки за 1-ую задачу

@Dekio · 19.02.2011, 19:11

Pascal

program Dekio;
const
n=8;
m=15;
var
arr :array[1..n,1..m] of integer;
l,i,j,tmp :integer;
begin
randomize;
for i:=1 to n do
begin
tmp:=0;
for j:=1 to m do
begin
arr[i,j]:=random(40);
write(arr[i,j]:4);
inc(tmp,arr[i,j]);
end;
writeln;
writeln('Сумма ',i,'-го участника равна ',tmp);
end;
for l:=1 to n do
for i:=m downto 2 do
for j:=2 to i do
if arr[l,j-1]<arr[l,j] then
begin
tmp:=arr[l,j-1];
arr[l,j-1]:=arr[l,j];
arr[l,j]:=tmp;
end;
writeln;
writeln('Отсортированный массив');
for i:=1 to n do
begin
for j:=1 to m do
write(arr[i,j]:4);
writeln;
end;
end.

@Ev[G]eN · 19.02.2011, 19:22

Pascal

const
 n=10;
 m=10;
var
 arr: array[1..n, 1..m] of integer;
 i, j, summ: integer;
begin
 randomize;
 summ:=0;
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      arr[i, j]:=random(20);
      write(arr[i, j]:4);
       if not odd(arr[i,j]) then
        begin
         inc(summ,arr[i, j]);
        end;
     end;
    writeln;
   end;
 write(summ);
end.

@Daemon025 · 19.02.2011, 19:38

Pascal

        uses crt;
    const nmax=100;
    type competitor=record
           name:string;
           marks:array[1..nmax] of integer;
           sum:longint;
           end;
    var n,m,i,j:integer;
        competitors:array[1..nmax]of competitor;
        tmpS:competitor;
 
begin
  write('n= ');
  readln(n);
  write('m= ');
  readln(m);
  for i:=1 to n do
    with competitors[i] do
    begin
        write(i,'-й Имя: ');
        readln(name);
        sum:=0;
        for j:=1 to m do
        begin
            write('  ',j,' mark: ');
            readln(marks[j]);
            sum:=sum+marks[j];
        end;
        writeln('Сумма балов: ',sum);
        writeln;
    end;
 
    for i:=1 to n do
    for j:=1 to n-1 do
    if competitors[j].sum < competitors[j+1].sum then
    begin
       tmpS:=competitors[j];
       competitors[j]:=competitors[j+1];
       competitors[j+1]:=tmpS;
    end;
   writeln('------------------------------');
   writeln('         Имя  Оценка');
    for i:=1 to n do
        with competitors[i] do
        writeln(name:12,' ',sum:7);
  Readln;
end.

Добавлено через 13 минут
with random

Pascal

    uses crt;
    const nmax=100;
    type competitor=record
           name:string;
           marks:array[1..nmax] of integer;
           sum:longint;
           end;
    var n,m,i,j:integer;
        competitors:array[1..nmax]of competitor;
        tmpS:competitor;
 
begin
  randomize;
  write('n= ');
  readln(n);
  write('m= ');
  readln(m);
  for i:=1 to n do
    with competitors[i] do
    begin
        write(i,'-й Имя: ');
        readln(name);
        sum:=0;
        write('Marks: ');
        for j:=1 to m do
        begin
            marks[j]:=random(100);
            write(marks[j],' ');
            sum:=sum+marks[j];
        end;
        writeln;
        writeln('Сумма балов: ',sum);
        writeln;
    end;
 
    for i:=1 to n do
    for j:=1 to n-1 do
    if competitors[j].sum < competitors[j+1].sum then
    begin
       tmpS:=competitors[j];
       competitors[j]:=competitors[j+1];
       competitors[j+1]:=tmpS;
    end;
   writeln('------------------------------');
   writeln('         Имя  Оценка');
    for i:=1 to n do
        with competitors[i] do
        writeln(name:12,' ',sum:7);
  Readln;
end.

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

@mexx1994 1 / 1 / 0 Регистрация: 11.04.2010 Сообщений: 191
		1
	Сумма элементов двумерного массива 19.02.2011, 18:41. Показов 16449. Ответов 8 Метки нет (Все метки) Помогите решить 2 задачки : 1.) Найти суммы всех чётных элементов двумерного массива .. 2.)Известны результаты конкурса ,в котором принимало участие N человек и было m этапов .За каждый этап участники получили баллы .Найти сумму баллов каждого участника и выполнить сортировку массива по убыванию... Заранее спасибо 0

@_LoneR_ 90 / 90 / 13 Регистрация: 15.01.2011 Сообщений: 494
	19.02.2011, 18:56	5
	Сообщение от Ev[G eN;1382699]const n=10; m=10; var arr: array[1..n, 1..m] of integer; i, j, summ: integer; begin randomize; summ:=0; for i:=1 to n do begin for j:=1 to m do begin arr[i, j]:=random(20); writeln(arr[i, j], ' '); if (arr[i, j]mod 2)=0 then begin summ:=summ+arr[i, j]; end; end; end; write(summ); end. Вы видели как у вас массив вводиться? Там всё в столбик! 1

@mexx1994 1 / 1 / 0 Регистрация: 11.04.2010 Сообщений: 191
	19.02.2011, 18:59 [ТС]	6
	спасибки за 1-ую задачу 0

	19.02.2011, 19:38