Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  4 15 35 12 55 34 67 10
Language: PASCAL
Code:
rogram z1;
const n=8;
var a:array[1..n] of integer;
var i,k:integer;
begin
for i:=1 to n do
begin
readln(a[i]);
if A[i] mod 10=5 then k:=k+1;
end;
writeln(k);
for i:=1 to n do
if a[i] mod 10=5 then write (k,' ')
else write(a[i],' ');
end.
     
Comments: