Если ты думаешь что радиоволны то ты ошибаешься. <span>На самом деле, радиоволны в микроволновом излучении несут информацию, например, о нарушении дипольной анизотропии реликтового излучения которое говорит о свойствах Вселенной происходивших 14 миллиардов лет назад,
днк 2 место по хранению информации
CD-ROM хранит информацию около 30 лет
а дискета около полугода</span>
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-35,60);
a.Println(4); Writeln(4*a.ColCount*'-');
a.Rows.Select(row->row.Where(t->t<0).Count).Println
end.
<u>Пример</u>
Количество строк и столбцов в массиве: 5 8
*** Исходный массив [5,8] ***
-21 50 17 -12 -30 10 -9 10
39 1 0 41 -29 26 28 16
50 52 13 36 43 -6 37 5
34 -3 27 13 29 -30 49 36
-17 -12 39 52 -15 -8 27 -9
--------------------------------
4 1 1 2 5
1. Сначала надо перевести всё в секунды: N*60+M = время в секундах
2. Теперь найдём количество молний. Для этого всё время надо разделить на время создания одной молнии: (N*60+M)/X = искомое количество молний.
Var n,i:integer; a,b:real; l:boolean;
begin
write('N='); readln(n);
l:=true;
write('a='); readln(a);
for i:=2 to n do
begin
write('a='); readln(b);
if b<a then l:=false;
a:=b;
end;
writeln(l);
<span>end.
Пример:
N=5
a=2
a=4
a=5
a=7
a=9
True</span>