М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Запишите значение S, полученное в результате выполнения программы. ( )
S=

👇
Открыть все ответы
Ответ:
Pandochka7771
Pandochka7771
28.12.2020
8110

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

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

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

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

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

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

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.

4,6(84 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ