SHARE
TWEET

Untitled

a guest Apr 25th, 2019 82 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program task1simple;
  2. var n,i,j,k:integer;
  3.   a: array[1..1000] of integer;
  4. begin
  5.   readln(N);
  6.   for i := 1 to N do
  7.     read(a[i]);
  8.   for i := 1 to N-1 do
  9.   begin
  10.     for j:=i+1 to N do
  11.     if ((a[i] +a[j])mod 2 <> 0) and ((a[i]*a[j]) mod 5 = 0) then k := k+1;
  12.     end;
  13.     write(k);
  14.     end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top