Самостоятельная работавариант — 12оформить по плану решения , построить блок-схему и написатьпрограмму вычисления значения выражения, используя операторприсваивания: укажите количество квт электроэнергии, которое было израсходовано зарасчетный месяц и плату за 1 квт электроэнергии. вычислите сумму денег,которую нужно заплатить за электроэнергию.
у сучасному світі виникла велика кількість нових явищ, які мають на людину великий вплив. одним з таких є інтернет. інтернет, напевно, став займати дуже важливе місце в житті кожної людини. він стосується всього, що має відношення до будь-якої інформації або обміну нею. в інтернеті сьогодні сидять усі – починаючи від школярів і закінчуючи людьми похилого віку, він корисний для всіх. однак далеко не факт, що інтернет дає одну лише користь. до всіх явищ, в тому числі і самих корисних, слід ставитися з належною часткою критики, тому я пропоную розглянути ризики, пов’язані з впливом інтернету на людину.
по-перше, є чисто фізіологічний ризик. інтернет вимагає уваги, а увагу далеко не так просто приділити, якщо ти знаходишся в русі. отже, інтернет змушує тебе сидіти на одному місці і не рухатися. а це загрожує виникненням проблем зі здоров’ям. тому людина не повинна поринати в інтернет з головою. потрібно залишати місце для активної спортивної діяльності, спілкування з іншими, будь-якого руху. в іншому випадку можна отримати серйозні проблеми і пошкодувати про те, що проводив так багато часу за комп’ютером.
// Внимание! Если программа не работает, обновите версию!
1)
begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var b:=a.Rows.Select(r->r.Where(t->t.IsOdd).LastOrDefault); b.Println;
end.
Пример
Количество строк и столбцов в массиве: 8 5
*** Исходный массив [8,5] ***
-41 36 -99 14 17
-22 12 71 -94 -42
-35 -40 26 2 24
39 17 20 11 84
-53 -18 97 -6 5
2 67 -54 -6 -3
95 -87 90 -13 -37
-81 -21 61 -90 -60
--------------------
17 71 -35 11 5 -3 -37 61
2)
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(20,10,2,5);
a.Println(2); Writeln(2*a.ColCount*'-');
Writeln('Ср. 5-го ученика: ',a.Row(4).Average)
end.
Пример
*** Исходный массив ***
2 2 3 3 4 3 4 2 3 2
4 3 2 3 2 4 3 2 5 3
4 2 3 3 4 5 5 2 2 4
5 2 4 2 4 5 4 2 3 3
5 3 3 2 3 4 5 4 4 4
3 2 3 2 3 2 5 2 4 4
4 4 5 5 2 4 5 5 4 2
2 2 5 4 4 2 4 3 2 2
2 2 4 4 2 4 4 4 5 4
2 3 4 4 5 3 3 4 5 4
5 2 5 3 3 2 3 5 3 2
3 4 2 3 4 3 2 3 4 3
2 2 2 2 2 4 4 2 4 2
5 2 3 3 3 5 3 2 2 5
2 4 2 4 3 3 3 2 5 4
3 2 5 4 4 4 5 5 3 5
4 3 2 3 3 2 2 4 2 4
2 5 2 5 2 3 2 4 5 4
3 3 2 2 5 4 3 5 4 4
2 3 5 3 3 5 4 5 2 2
--------------------
Ср. 5-го ученика: 3.7