sky-elena712558
?>

Составьте программу для вывода в массиве c[1..4, 1..3] сумм столбцов этого массива.

Информатика

Ответы

kris5009646
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=MatrRandom(4,3,-50,50); a.Println(5);
  Writeln(5*a.ColCount*'-');
  foreach var c in a.Cols do Write(c.Sum:5);
end.

Пример
   44   30  -45
   10   -9   -1
   37   30   11
   24  -16  -22

  115   35  -57
samoilovcoc
В древнем Египте использовалась нумерация, основанная на десятичной системе счисления:
- для единиц использовались палочки
- для десятков - пятки
- для сотен - мерные верёвки
- для тысяч - цветущий лотос
- десятки тысяч - пальцы
- сотни тысяч - головастики или жабы
- миллионы - человек
Также иногда утверждается, что десятки миллионов изображались иероглифом восходящего солнца в честь бога Амона Ра.

Для записи чисел иероглифы повторялись до девяти раз и записывались вместе.

Несколько позже (не позже 1740 г. д.н.э.) у египтян появился символ, обозначающий число ноль. Он изображался в виде сердца с крестом.
Вдревнеегипетской нумерации для записи целых чисел какие использовались иероглифы
Вдревнеегипетской нумерации для записи целых чисел какие использовались иероглифы
olg14855767
1. Современный вариант (коротко, быстро и наглядно, кто знает). Так уже начали учить в некоторых школах.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ArrRandom(ReadInteger('n='),1,300).Println.
      Where(k->(k>=100) and ((k mod 100) div 10=0));
  if s.Count>0 then Writeln(s.Max) else Writeln('Нет элементов')
end.

Пример
n= 15
76 283 171 140 113 65 185 35 202 42 93 51 205 76 138
205

2. А так по-прежнему учат в большинстве школ. Стиль "80-х годов века". Долго, длинно, можно наделать ошибок, но по-другому эти учителя сами не могут.

const
  nn=100;
var
  i,n,max:integer;
  a:array[1..nn] of integer;
begin
  Write('n=');
  Read(n);
  Randomize;
  max:=0;
  for i:=1 to n do begin
    a[i]:=Random(300)+1;
    Write(a[i],' ');
    if (a[i]>=100) and ((a[i] mod 100) div 10=0) then
      if a[i]>max then max:=a[i]
    end;
  Writeln;
  if max>0 then Writeln(max)
  else Writeln('Нет элементов')
end.

Пример
n=15
219 68 131 115 104 169 80 288 143 108 124 214 50 101 1
108

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

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

Составьте программу для вывода в массиве c[1..4, 1..3] сумм столбцов этого массива.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Александровна-Васильевна
fmba18
DudukinSerega2507834
Барскова1943
Цветкова
Bezzubova_Stepanov1355
bureiko
ПогальниковАлёна589
evge-borisova2
Tatyana1374
heodbxbbshe
Филиппович_Николаевич
Pashinov
goldglobustour725
moskwa999