НУЖНО СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЬ.
1. В массиве 10 чисел. Положительные числа замените их номерами. Вывести на экран в столбик изменившийся массив.
2. В массиве М(8) найдите сумму элементов, больших 12
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
Writeln(-*10);
var a:=ArrRandom(10,-99,99); a.Println;
a:=a.Select((x,i)->x>0?i+1:x).ToArray; a.Println(NewLine);
Writeln(-*10);
var m:=ArrRandom(8,-10,30); m.Println;
Writeln(s=,m.Where(x->x>12).Sum)
end.
Тестовое решение
----------
26 -63 12 85 9 53 57 36 -45 30
1
-63
3
4
5
6
7
8
-45
10
----------
11 -4 14 6 24 0 -8 10
s=38
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
