Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 46.

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

program prim J;
  uses crt;
  type mas=array[1..100, 1..100] of integer;
  var a:mas;
      i,j,n,s,sl :integer;
begin
  clrscr;
  randomize;
  write('n=');readln(n);
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
{Получаем случайные значения элементов матрицы.}
          a[i,j]=random(45)-22;
          write(a[i,j]:4);
{Находим сумму элементов.}
          s:=s+a[i,j]; sl:=sl+a[i,j];
        end;
{Печатаем сумму всех элементов каждой строки и обнуляем значение суммы.}
      writeln('сумма строки =',s);s:=0;
      writeln;
    end;
  writeln('сумма всех элем. sl=',sl);
  readln;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru