Var a,b: integer;var M: array[1..10] of integer;begina:=1;while a<>1000 do beginreadln(a);b:=b+1;if a mod 10 = 5 then M[b]:=a;end;writeln(M[1]+M[2]+M[3]+M[4]+M[5]+M[6]+M[7]+M[8]+M[9]+M[10]);<span>end.</span>
Ответ:
PascalВыделить код
1
prorgam sp;
2
var A: array [1..10] of integer;
3
I,S: integer;
4
begin I:=0;
5
for I:=1 to 10 do S:=S+A[I];
6
writeln ('summa=',S);
7
end
Объяснение:
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(15, -22, 33);
a.Println;
a.Transform(t -> t > 0 ? 1 : t);
a.Println
end.
<h2>Пример</h2><h3>-16 7 14 8 18 7 -5 -3 -18 26 -3 -8 31 13 -1</h3><h3>-16 1 1 1 1 1 -5 -3 -18 1 -3 -8 1 1 -1</h3>