Advertisement
Guest User

Untitled

a guest
Mar 29th, 2020
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.30 KB | None | 0 0
  1. const
  2.   N=7;
  3. var
  4.   a:array of integer;
  5.   i,k:longint;
  6. begin
  7.     k:=0;
  8.     for i:=1 to N do
  9.     readln(a[i]);
  10.   for i:=1 to N do
  11.         if (a[i]>=75) and ((a[i]) mod 2 = 0) then
  12.         k:=k+1;
  13.     for i:=1 to N do
  14.         if (a[i]>=75) and ((a[i]) mod 2 = 0) then
  15.         a[i]:=a[i]+k;
  16.     for i:=1 to N do
  17.         writeln(a[i])
  18. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement