===== PascalABC.NET =====
begin
var a := ArrRandomReal(10, -99, 99); // случайные числа
a.Transform(p -> Round(p, 2)); // дробная часть - 2 знака
a.Println;
for var i := 0 to a.High do
if a[i] > 0 then
a[i] /= 2
else if a[i] < 0 then
a[i] := i + 1;
a.Println
end.
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=Arr(2,7,11,15,4,-2,6);
Writeln('Первое отрицательное под номером ',b.FindIndex(k->k<0)+1);
Writeln('Сумма положительных ',b.Where(k->k>0).Sum);
Writeln('Минимальное значение под номером ',b.IndexMin+1)
end.
<u>Результат</u>
Первое отрицательное под номером 6
Сумма положительных 45
Минимальное значение под номером 6
//PascalABC.Net 3.2
begin
var a:=arrrandom (readinteger('n ='), -15, 15); a.Println;
var b: array of integer;
for var i:=0 to length(a)-1 do if not((a[i]<0) or ((a[i] mod 8)=0)) then begin
setLength (b, length(b)+1);
b[length(b)-1]:=a[i]
end;
b.Print;
end.
1) Если подразумевается a>=0, то верно.
2) Неверно, нужны скобки: (x > 0) or (y < 0)
3) Если подразумевается c <> 10, то верно.
4) Верно.
5) Неверно.
6) Неверно.
7) Неверно.
8) Неверно.
9) Если в 9 x>=y, то верно (если есть 9).
10) Верно.
11) Неверно, можно исправить так: (x = y) and (y = z).
Ответ: 1, 3, 4, 10.