лезные ископаемые — горные породы и минералы, которые используются или могут быть применены в народном хозяйстве. подразделяются они по-разному. в одном случае подчеркивается их состояние, и выделяются следующие типы:
твердые (различные руды, уголь, мрамор, гранит, соли);
жидкие (нефть, минеральные воды);
газовые (горючие газы, гелий, метан).
в другом случае за основу берется их использование, вследствие чего выделяются ископаемые:
горючие (уголь, торф, нефть, природный газ, горючие сланцы);
рудные (руды горных пород, включающие металлические полезные компоненты и неметаллические (графит, асбест);
нерудные (неметаллические и негорючие полезные ископаемые: песок, гравий, глина, мел, известняк, различные соли. отдельной группой стоят драгоценные и поделочные камни).
ответ:
— я знаю тебя много лет, но ты никогда не обращался ко мне за советом или . я не могу вспомнить, когда ты в последний раз приглашал меня в свой дом на чашку кофе, хотя моя жена, крёстная твоего единственного ребёнка. будем сейчас откровенны: ты никогда не искал моей дружбы и ты боялся быть у меня в долгу.
— я не хотел нажить неприятностей.
— я понимаю. ты нашёл в америке рай: у тебя хорошо шёл бизнес, тебя защищала полиция и тебе не нужны были такие друзья как я. а теперь, ты приходишь и говоришь: дон корлеоне, мне нужна справедливость. но ты не просишь с уважением, не предлагаешь дружбу, даже не думаешь обратиться ко мне — крёстный. нет, ты приходишь ко мне в дом в день свадьбы моей дочери и просишь убивать за деньги.
Поделитесь своими знаниями, ответьте на вопрос:
В текстовом файле с именем matrica.txt записана следующая числовая матрица. Создать массив по правилу: 1 элемент этого массива равен
Var M1: array [1..4,1..5] of integer;
M2: array [1..4] of integer;
i,j: byte; s:integer;
F1: text; {файловая
Переменная}
Begin
Assign (F1,'matrica.txt'); {Связывание
F1 с файлом matrica.txt}
Reset(F1); {Открытие файла
для чтения}
For i:=1 to 4 do
Begin
For j:=1 to 5 do
Read (F1, M1[I,j]); {Последовательное чтение из одной строки}
Readln(F1) {переход к
следующей строке}
End;
Close(F1); {Закрытие файла}
For i:=1 to 4 do
Begin
s:=0;
For j:=1 to 5 do
s:=s+M1[i,j];{находим сумму
элементов i строки}
M2[i]:=s
End;
Assign (F1,'matrica2.txt'); {Связывание F1 с файлом matrica2.txt}
Rewrite (F1); {открытие файла
для записи}
For i:=1 to 4 do
Begin
For j:=1 to 5 do
Write (F1, M1[i,j]:4);
Writeln(F1)
End;
WriteLn(F1);
For i:=1 to 4 do Write(F1,M2[i]:4);
Close(F1); {Закрытие файла}
End.