Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 28.04.2014, 23:27   #1 (permalink)
scorpius
Member
 
Регистрация: 20.02.2012
Сообщений: 27
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Задача в Паскаль, массив

Помогите, пожалуйста, чайнику с двумерным массивом...

Посчитать сумму элементов двумерного массива, стоящих по периметру.

scorpius вне форума   Ответить с цитированием

Старый 28.04.2014, 23:27
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Аналогичные темы создавались ранее, вы можете ознакомиться с ними

Задача на массив
Задача на Паскаль, одномерный массив
Задача на Паскале про массив
Задача на массив в С++
Массив, почти решена задача
Экзаменационная задача на массив

Старый 29.04.2014, 03:11   #2 (permalink)
poiu
Member
 
Регистрация: 05.03.2014
Сообщений: 201
Сказал(а) спасибо: 2
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 834
По умолчанию вот...

Код:
const
 n = 10;
 m = 10;

type
 Tmas = array[1..n, 1..m] of integer;

var
 i, j: byte;
 mas: Tmas;
 sum: integer;

begin
randomize();
writeln('Input matrix:');
 for i:= 1 to n do
  begin
   for j:= 1 to m do
    begin
     mas[i,j]:= random(50);
     write(mas[i, j]:4);
    end;
  writeln;
  end;
sum:= 0;
 // row 1
 for j:= 1 to m do sum:= sum + mas[1, j];
 // row 2..n-1
 for i:= 2 to n-1 do sum:= sum + mas[i, 1] + mas[i, m];
 // row n
 for j:= 1 to m do sum:= sum + mas[n, j];
writeln('Summa po perimetru: ', sum);
readln;
end.
poiu вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 20:58.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.