===== PascalABC.NET =====
function GetArr(n: integer) :=
ReadArrInteger('Вводите эдементы массива:', n);
function Summ(a: array of integer): integer;
begin
if a.Any(p -> p < 0) then
Result := a.TakeWhile(p -> p >= 0).Sum
else
Result := a.Sum
end;
// Тест
begin
var M := GetArr(ReadInteger('n ='));
Println(Summ(M))
end.
1- думаю г :D
2- г? что ли я не видела ничего такого где можно было бы редактировать... там просто записываешь и все вроде :D сам проверь)
var
x:integer;
begin
readln(x);
if(x mod 2 = 0) then writeln('Четное')
else writeln('Нечетное');
end.
Var a,s:integer;
begin
Randomize;
a:=random(21)-10;
writeln(a);
s:=0;
while a<>0 do
begin
s:=s+a;
a:=random(21)-10;
writeln(a);
end;
write('s = ',s);
end.
Пример:
-6
6
10
7
-10
-8
-9
0
s = -10
Ответ:
var a:array[1..5]of integer;
i,m:integer;
begin
m:=0;
write('Массив: ');
for i:= 1 to 5 do
begin
a[i]:= random(21)-10;
write(a[i]:4);
if (a[i]>0) and (i mod 2 = 0) then m:=a[i]
end;
writeln;
for i:= 1 to 5 do
if (a[i]>0) and (i mod 2 = 0)and (a[i] < m) then m:=a[i];
if m=0 then writeln ('В массиве нет положительных элементов среди элементов с чётными номерами')
else writeln('Наименьший положительный элемент среди элементов с чётными номерами равен ',m)
end.