<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure Astento;
begin
var T:=Arr(-2,3,-1,4,-5,2,1,0,1,2,1,-3,5);
var s:=T.OrderBy(p->Abs(p)); // последовательность памяти не занимает
Writeln('Сумма двух наименьших по модулю: ',s.Take(2).Sum);
Writeln('Сумма двух наибольших по модулю: ',s.TakeLast(2).Sum)
end;
begin
Astento
end.
<u>Результат</u>
Сумма двух наименьших по модулю: -1
Сумма двух наибольших по модулю: 0
<u>Замечание:</u> в данном случае "ранжированная" последовательность была такой: 0 -1 1 1 1 -2 2 2 3 -3 4 -5 5
Var
O:integer;
Begin
Write('Введите оценку ученика: ');
ReadLn(O);
Case O of
1:Write('плохо');
2:Write('неудовлетворительно');
3:Write('удовлетворительно');
4:Write('хорошо');
5:Write('отлично');
End;
End.
#include<span><iostream> </span>
#include<span><cstdlib> </span>
<span>using namespace std; </span>
<span>int main() </span>
<span>{ </span>
<span>setlocale (0,""); </span>
<span>int k,m,b,i,j,A[5][5]; </span>
<span>for (j=0;j<5;j++) </span>
<span>//Ввод массива </span>
<span>{ </span>
<span>cout«"Введите элементы строки №"«j«" :"«endl; </span>
<span>for (i=0;i<5;i++) </span>
<span>{ </span>
<span>cout«"Введите элемент строки №"«i+1«":"; </span>
<span>cin»A[j][i]; </span>
<span>} </span>
<span>} </span>
<span>//Вывод массива </span>
<span>for(j=0;j<5;j++) </span>
<span>{ </span>
<span>for(i=0;i<5;i++) </span>
<span>{ </span>
<span>cout«A[j][i]«" "; </span>
<span>} </span>
<span>cout«endl; </span>
<span>} </span>
Ответ:
4000 Ом (?)
Объяснение:
400 Ком = 400000 Ом
0,04 МОм = 40000 Ом
4000 Ом = 4000 Ом
40 Мом (мегаом?) = 4000000 Ом
(Уточните, пожалуйста: Мом это мегаом? если это милиом, то он будет меньше всех, если мегаОм - то ответ будет больше всех)
Ответ:
Старт/Стоп, Медиа назад/вперед, по кругу, случайное воспроизведение
