Определение суммы значений элементов, расположенных по контуру матрицы

28.01.2013, 20:10. **Показов** 2618. **Ответов** 1

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

Задан двумерный массив, состоящий из N строк и M столбцов (N, M<10). Написать программу определения суммы значений элементов, расположенных по контуру данного массива.

помогите пожалуйста,напишите программу на паскале!(

Kodzaev · 28.01.2013, 20:20

Что пришло в голову:

Pascal

Var
  i,j,n,m: Byte;
  s: Integer;
  x: Array[1..9,1..9] of Integer;
BEGIN
Repeat
 Writeln('Введите N и M <10');
 Readln(n,m);
until (n<10) and (m<10);
Writeln('Матрица:');
For i:=1 to n do
begin
  For j:=1 to m do
  begin
    x[i,j]:=Random(100);
    Write(x[i,j]:5);
  end;
  Writeln
end;
For i:=1 to n do
s:=s+x[1,i];
For i:=2 to n do
s:=s+x[i,m];
For i:=1 to m-1 do
s:=s+x[n,i];
For i:=2 to n-1 do
s:=s+x[i,1];
Writeln('Сумма элементов по контуру= ',s);
END.

Кааатя
		1
	Определение суммы значений элементов, расположенных по контуру матрицы 28.01.2013, 20:10. Показов 2618. Ответов 1 Метки нет (Все метки) Задан двумерный массив, состоящий из N строк и M столбцов (N, M<10). Написать программу определения суммы значений элементов, расположенных по контуру данного массива. помогите пожалуйста,напишите программу на паскале!(

Опции темы

Определение суммы значений элементов, расположенных по контуру матрицы

Решение