// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
1)
begin
var a:=ArrRandom(11,5,45).Println;
var x:= a.where(t -> t.IsEven).sum;
Writeln('Сумма четных элементов: ', x);
end.
2)
begin
var a:= ArrGen(5, t -> ReadReal).Println;
a:= a.Select(t ->t/3).ToArray.Println;
end.
Сумма того что находится в ячейке А1+ то что находится в ячейке Б1
Например А1=2 Б1=3 тогда в ячейке где будет =А1+Б1 после нажатия Enter даст сумму этих ячеек ,т.е 5
Надеюсь доходчиво объяснила ☺️ удачи
<span>По логике так:
Надо расположить по возрастанию, то есть первое </span>меньше второго, второе меньше<span> третьего. Поэтому под цифрами 1 и 2 надо поставить "больше": если цифры поменяются местами, то станет "меньше", что нам и надо. Порядок убывания нам не нужен - нужно возрастание, поэтому в 3 пункте "не расположены". Ну а "к пункту" можно только "вернутся")
1)Начало.
2) Сравни первое и второе числа; если первое </span><u>больше</u><span> второго , то поменяй их местами.
3)Сравни второе и третье числа; если второе </span><u>больше</u><span> третьего, то поменяй их местами.
4)Если теперь три числа <u>не </u></span><u>расположены</u> в порядке убывания, то исполни пункт 5) этого алгоритма; иначе <u>вернись</u><span> к пункту 2).
5</span>)Конец.
===== PascalABC.NET =====
procedure SumP(a: array[,] of integer; p: integer; var s: integer);
begin
s := a.Row(p-1).Sum
end;
begin
var m := MatrRandom(11, 4, 24, 32);
m.Println(3);
var s5, s10: integer;
SumP(m, 5, s5);
SumP(m, 10, s10);
Println('Учеников:', s5 + s10)
end.
В нижней части окна.
отметь пожалуйста как лучший, если тебе был полезен мой ответ)
