Шкі жады көлемін аңықтаңызсыртқы жады көлемін аңықтаныз? ​

8110

11 марта в Японии произошло землетрясение магнитудой 8,8, оно считается самым сильным в истории страны. Но на планете каждый день случается несколько десятков землетрясений. По счастью, лишь немногие из них вызывают серьезные разрушения. Однако есть и такие, которые стирают с лица земли целые города. 

На настоящее время самым сильным известным человечеству землетрясением за последние 100 лет, о котором существуют официальные задокументированные данные, являетсяземлетрясение на Гаити, произошедшее 12 января 2010 года около 17 часов по местному времени. После основного толчка магнитудой 7 по шкале Рихтера, который длился порядка 40 секунд, было зарегистрировано еще около 30, половина из которых была силой не менее 5.

Чудовищное по силе и интенсивности землетрясение унесло жизни, по разным оценкам, почти 232 тысяч человек, несколько миллионов человек осталось без крова, была практически полностью разрушена столица Гаити Порт-о-Пренс.

Таких катастрофических последствий можно было бы избежать, если бы власти страны были готовы к стихиям подобного масштаба. В частности, по сообщениям ряда СМИ, даже спустя несколько недель после землетрясения множество пострадавших оставалось без еды, воды и крыши над головой хоть и оказывалась, но ее было явно недостаточно, в частности, за едой необходимо было отстаивать длинные очереди. Повсеместная антисанитария вызвала вспышку опасных болезней, в том числе и холеру, от которой впоследствии также скончалось несколько сотен человек.

На втором месте - землетрясение, случившееся 28 июля в далеком 1976 году в китайском городе Таншане. Землетрясение силой 8, унесшее жизни 222 тысяч человек, и это, по всей видимости "сильно" приблизительные данные. По подсчетам некоторых международных организаций, жертв таншаньского землетрясения было гораздо больше, вплоть до 800 тысяч человек, при этом сила толчков была несколько ниже – 7, Точных цифр, естественно, нет - согласно архивным сводкам, предполагается, что китайское правительство умышленно в несколько раз занизило масштаб катастрофы.

В 2004 году 26 декабря произошло еще одно не менее разрушительное землетрясение, которое было признано самым смертоносным стихийным бедствием в современной истории. Обрушившись на многие страны Азии, оно нанесло удар по побережью Индийского океана, от Индонезии до восточной Африки. Землетрясение силой 9, по шкале Рихтера вызвало огромное цунами и унесло жизни около 230 тысяч человек.

Program pr1;
Var A : array [1..4, 1..4] of integer ; {резервирование памяти под массив А (4 на 4)}
i,j, max, p, k: integer ; {переменные i,j вводятся как индексы массива}
Begin
randomize;
For i:=1 to 4 do
For j:=1 to 4 do
A[i,j]:=random (100); {ввод элемента матрицы}
max:=A[1,1]; k:=1; p:=1; {первоначальное предположение}
For i:=1 to 4 do
For j:=1 to 4 do
if A[i,j]>max then begin {Если текущий элемент больше максимального }
max:=A[i,j]; {max = A[i,j], запоминаем индексы текущего элемента}
k:=i;
p:=j;
end;

writeln('Исходный массив:');
For i:=1 to 4 do begin
For j:=1 to 4 do
write (A[i,j], ' ');
writeln;
end;

 

a[k, p] := a[k, p] + a[1, 1];  // добавленные строки

a[1, 1] := a[k, p] - a[1, 1];

a[k, p] := a[k, p] - a[1, 1];

writeln('Преобразованный массив:');
For i:=1 to 4 do begin
For j:=1 to 4 do
write (A[i,j], ' ');
writeln;

end;
writeln ('Максимальный элемент матрицы = ', max);
write ('Он находится в строке №' , k);
writeln (' и в столбце №' , p);
end.