Объяснение:
const
n = 10;
ar:array[1..n] of integer = (-2, -1, 2, 3, 4, 5, -5, -6, 2, 5);
var
i:integer;
is_first_pol:boolean;
raz_pol:integer;
begin
raz_pol:=0;
is_first_pol:=true; // флаг того, что найденное положительное число - первое
for i:=1 to n do begin
if (ar[i] > 0) then
if (is_first_pol) then begin
// если найденное полодительное число - первое, то
raz_pol:=ar[i]; // в нашу разницу заносим это число
is_first_pol:=false; // меняем флаг
end
else raz_pol:=raz_pol - ar[i]; // иначе вычисляем разницу
end;
writeln(raz_pol);
end.
java
import java.util.random;
public class myapp{
public static void main (string {
random rand = new random();
int n = rand.nextint(50);
int [] arr = new int[n];
for(int i = 0; i < n; i++) {
int j = rand.nextint(50);
arr[i] = j;
}
for( int i = 0; i < n; i++) {
if ( arr[i] % 2 == 0 ) {
system.out.print(arr[i] + " ");
}
}
}
}
pascal
program myapp;
var
i, n , j: integer;
arr: array of integer;
begin
randomize;
n : = random(50);
setlength(arr, n);
for i: = 0 to n do
begin
j: = random(50);
arr[i]: = j;
end;
for i: = 0 to n do
begin
if( arr[i] mod 2 = 0 ) then
begin
write(arr[i], ' ');
end;
end;
end.
