Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- const
- N=7;
- var
- a:array of integer;
- i,k:longint;
- begin
- k:=0;
- for i:=1 to N do
- readln(a[i]);
- for i:=1 to N do
- if (a[i]>=75) and ((a[i]) mod 2 = 0) then
- k:=k+1;
- for i:=1 to N do
- if (a[i]>=75) and ((a[i]) mod 2 = 0) then
- a[i]:=a[i]+k;
- for i:=1 to N do
- writeln(a[i])
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement