stasyan
?>

В заданном массиве х(n, m) вычислить среднее арифметическое положительных элементов.

Информатика

Ответы

dmitrijku

const

 n=5;

 m=10;

var

 a:array [1..n,1..m] of integer;

 i,j,sum,count: integer;

begin

 count:=0; sum:=0;

   for i:=1 to n do

     begin

       for j:=1 to m do

         begin

           a[i,j]:=random(41)-20;

           write(a[i,j]:4);

           if a[i,j]>0 then

             begin

               inc(count);

               sum:=sum+a[i,j];

             end;

         end;

       writeln;

     end;

   writeln;

   write(sum/count:4:4);

end.

ЮлияДаниил520

использовать Чертежник

алг  

нач

поднять перо

сместиться в точку (1,0)

опустить перо  

сместиться в точку (1,1)

сместиться в точку (2,1)

сместиться в точку (2,0)

сместиться в точку (1,0)

поднять перо

сместиться в точку (2,1)

опустить перо

сместиться в точку (2,2)

сместиться в точку (3,2)

сместиться в точку (3,0)

сместиться в точку (2,0)

поднять перо  

сместиться в точку (3,2)

опустить перо

сместиться в точку (3,3)

сместиться в точку (4,3)

сместиться в точку (4,0)

сместиться в точку (3,0)

поднять перо

сместиться в точку (4,2)

опустить перо

сместиться в точку (5,2)

сместиться в точку (5,0)

сместиться в точку (4,0)

поднять перо

сместиться в точку (5,1)

опустить перо

сместиться в точку (6,1)

сместиться в точку (6,0)

сместиться в точку (5,0)

поднять перо

сместиться в точку (6,1)

опустить перо

сместиться в точку (7,1)

сместиться в точку (7,0)

сместиться в точку (6,0)

поднять перо

сместиться в точку (7,1)

опустить перо

сместиться в точку (7,2)

сместиться в точку (8,2)

сместиться в точку (8,0)

сместиться в точку (7,0)

поднять перо

сместиться в точку (8,2)

опустить перо

сместиться в точку (8,3)

сместиться в точку (9,3)

сместиться в точку (9,0)

сместиться в точку (8,0)

поднять перо

сместиться в точку (9,2)

опустить перо

сместиться в точку (10,2)

сместиться в точку (10,0)

сместиться в точку (9,0)

поднять перо

сместиться в точку (10,1)

опустить перо

сместиться в точку (11,1)

сместиться в точку (11,0)

сместиться в точку (10,0)  

поднять перо  

сместиться в точку (11,1)

опустить перо

сместиться в точку (12,1)

сместиться в точку (12,0)

сместиться в точку (11,0)

поднять перо  

сместиться в точку (12,1)

опустить перо

сместиться в точку (12,2)

сместиться в точку (13,2)

сместиться в точку (13,0)

сместиться в точку (12,0)

поднять перо

сместиться в точку (13,2)

опустить перо

сместиться в точку (13,3)

сместиться в точку (14,3)

сместиться в точку (14,0)

сместиться в точку (13,0)

поднять перо

сместиться в точку (14,2)

опустить перо

сместиться в точку (15,2)

сместиться в точку (15,0)

сместиться в точку (14,0)

поднять перо

сместиться в точку (15,1)

опустить перо

сместиться в точку (16,1)

сместиться в точку (16,0)

сместиться в точку (15,0)

кон

Объяснение:

nikitamihailov22095010
Пусть Чертёжник стоит в точке (0,0). Выполняя программу, Чертёжник нарисует цифры 1-9 и 0, в таком виде, как они пишутся на почтовых конвертах (см. рисунок). В фигурных скобках - комментарии, они не выполняются. 

использовать Чертежник
алг Циферки
нач
{рисуем 1}
  поднять перо
  сместиться в точку (2, 1)
  опустить перо
  сместиться в точку (2, 3)
  сместиться в точку (1, 2)
{рисуем 2}
  поднять перо
  сместиться в точку (3, 3)
  опустить перо
  сместиться в точку (4, 3)
  сместиться в точку (4, 2)
  сместиться в точку (3, 1)
  сместиться в точку (4, 1)
{рисуем 3}
  поднять перо
  сместиться в точку (5, 3)
  опустить перо
  сместиться в точку (6, 3)
  сместиться в точку (5, 2)
  сместиться в точку (6, 2)
  сместиться в точку (5, 1)
{рисуем 4}
  поднять перо
  сместиться в точку (7, 3)
  опустить перо
  сместиться в точку (7, 2)
  сместиться в точку (8, 2)
  поднять перо
  сместиться в точку (8, 3)
  опустить перо
  сместиться в точку (8, 1)
{рисуем 5}
  поднять перо
  сместиться в точку (10, 3)
  опустить перо
  сместиться в точку (9, 3)
  сместиться в точку (9, 2)
  сместиться в точку (10, 2)
  сместиться в точку (10, 1)
  сместиться в точку (9, 1)
{рисуем 6}
  поднять перо
  сместиться в точку (12, 3)
  опустить перо
  сместиться в точку (11, 2)
  сместиться в точку (11, 1)
  сместиться в точку (12, 1)
  сместиться в точку (12, 2)
  сместиться в точку (11, 2)
{рисуем 7}
  поднять перо
  сместиться в точку (13, 3)
  опустить перо
  сместиться в точку (14, 3)
  сместиться в точку (13, 2)
  сместиться в точку (13, 1)
{рисуем 8}
  поднять перо
  сместиться в точку (15, 3)
  опустить перо
  сместиться в точку (15, 1)
  сместиться в точку (16, 1)
  сместиться в точку (16, 3)
  сместиться в точку (15, 3)
  поднять перо
  сместиться в точку (15, 2)
  опустить перо
  сместиться в точку (16, 2)
{рисуем 9}
  поднять перо
  сместиться в точку (17, 1)
  опустить перо
  сместиться в точку (18, 2)
  сместиться в точку (18, 3)
  сместиться в точку (17, 3)
  сместиться в точку (17, 2)
  сместиться в точку (18, 2)
{рисуем 0}
  поднять перо
  сместиться в точку (19, 1)
  опустить перо
  сместиться в точку (19, 3)
  сместиться в точку (20, 3)
  сместиться в точку (20, 1)
  сместиться в точку (19, 1)
{возвращаемся в начало}
  поднять перо
  сместиться в точку (0, 0)
кон 

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

В заданном массиве х(n, m) вычислить среднее арифметическое положительных элементов.
Ваше имя (никнейм)*
Email*
Комментарий*